Berechnen von Feiertagen speziell Ostern
Ostern:
[code:1]procedure Ostern(var otag, omon: integer; jahr: integer); {nach Gauss}
var
a,b,c : integer;
begin
a:=jahr mod 19;
b:=(204-11*a) mod 30;
if b in [28,29] then dec(b);
c:=(jahr+jahr div 4+b-13) mod 7;
otag:=28+b-c-2;omon:=3;
if otag>31 then
begin
dec(otag,31);
inc(omon);
end;
end;[/code:1]
Das Ergebnis steht dann in den ersten zwei Parametern drin. Im dritten Parameter wird das Jahr übergeben, für das Ostern angezeigt werden soll.
Ostern:
[code:1]procedure Ostern(var otag, omon: integer; jahr: integer); {nach Gauss}
var
a,b,c : integer;
begin
a:=jahr mod 19;
b:=(204-11*a) mod 30;
if b in [28,29] then dec(b);
c:=(jahr+jahr div 4+b-13) mod 7;
otag:=28+b-c-2;omon:=3;
if otag>31 then
begin
dec(otag,31);
inc(omon);
end;
end;[/code:1]
Das Ergebnis steht dann in den ersten zwei Parametern drin. Im dritten Parameter wird das Jahr übergeben, für das Ostern angezeigt werden soll.