DruckenMister WongFacebook

Pfingsten
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Als Parameter muss zuerst wieder das genaue Datum von Ostern übergeben werden, da Pfingsten in Abhängigkeit von Ostern steht. Der genaue Ostern-Termin kann mit der Procedure aus dem entsprechenden Tipp ermittelt werden.

Die letzten beiden Parameter geben schließlich das Datum von Pfingsten zurück.

  1. procedure Pfingsten(oday, omon: integer; var pday, pmon: integer);
  2. begin
  3.   pday := oday + 52;
  4.   pmon := omon;
  5.   if pday > 30 then
  6.   begin
  7.     dec(pday, 30);
  8.     inc(pmon);
  9.   end;
  10.   if pday > 31 then
  11.   begin
  12.     dec(pday, 31);
  13.     inc(pmon);
  14.   end;
  15. end;

Aufrufen könnte man die Procedure z.B. so, wenn Ostern in diesem Jahr am 15.4. ist:

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