DruckenMister WongFacebook

Herrentag/Christi Himmelfahrt
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Als Parameter muss das Datum von Ostern übergeben werden. Der erste Parameter ist an dieser Stelle der Tag und der zweite Parameter der Monat. Das Datum von Ostern kann mit der Procedure aus dem entsprechenden Tipp ermittelt werden.

Das Ergebnis wird dann in den letzten beiden Parametern hinterlegt. Es wird das genaue Datum des Herrentags berechnet. In manchen Gegenden heißt diese Tag auch Christi Himmelfahrt oder Vatertag.

  1. procedure HerrenTag(day, month: integer; var hday, hmonth: integer);
  2. begin
  3.   hday := day+41;
  4.   hmonth := omonth;
  5.   if hday>30 then
  6.   begin
  7.     dec(hday,30);
  8.     inc(hmonth);
  9.   end;
  10.   if hday>31 then
  11.   begin
  12.     dec(hday,31);
  13.     inc(hmonth);
  14.   end;
  15. end;

Aufrufen könnte man die Procedure z.B. so:

procedure TForm1.Button1Click(Sender: TObject);
var
  Day, Month: Integer;
begin
  HerrenTag(15,4,Day,Month);
  Label1.Caption:=IntToStr(Day);
  Label2.Caption:=IntToStr(Month);
end;
Ähnliche Seiten: