Wer kennt den Algorithmus

[Thomas Grötzner]

Hallo Rolf,

gemeint ist wohl die Gaus'sche Osterformel mit der man Ostern berechnen kann. Was das aber mit Deiner ursprünglichen Frage zu tun hat hab ich mir nicht überlegt.

Hier eine Pascal-Version (nicht von mir sondern per Google gefunden). Einfach "Gaus Formel Datum" suchen dann gibts noch mehr.

IF (jahreszahl MOD 4 = 0 AND jahreszahl MOD 100 <> 0) OR jahreszahl MOD 400 = 0
THEN
   Feb := 29;
ELSE
   Feb := 28;
END_IF;
a := jahreszahl MOD 19;
b := jahreszahl MOD 4;
c := jahreszahl MOD 7;
d := (19*a+24) MOD 30;
e := (2*b+4*c+6*d+5) MOD 7;
ostern := 31 + Feb + 21 + d + e;
IF ostern - Feb = 87 THEN
   ostern := ostern - 7;
ELSIF a > 10 AND d = 28 AND ostern - Feb = 86 THEN
   ostern := ostern - 7;
END_IF;
ostern := ostern + 1;

Ciao
Thomas Grötzner