Ostern is nah!

Berechnung von Feiertagen - Ostern
Autoren: Keine Autoren angegeben
Letzte Änderung: 2005-02-10

Folgender Tipp demonstriert, wie man einige Feiertage bzw. besondere tage berechnen kann.

Ostern:

procedure Ostern(var oday, omon: integer; year: integer); {nach C.F.Gauss}
var
a,b,c : integer;
begin
a:=year mod 19;
b:=(204-11*a) mod 30;
if b in [28,29] then dec(b);
c:=(year+year div 4+b-13) mod 7;
oday:=28+b-c-2;omon:=3;
if oday>31 then
begin
dec(oday,31);
inc(omon);
end;
end;

Das Ergebnis steht dann in den zwei ersten Parametern drin. Dem dritten Parameter muss man das Jahr übergeben, von welchem der Ostern-Termin berechnet werden soll.

Diese Procedure ist auch die Grundlage von den nächsten Tipps