Wer kennt den Algorithmus

[rolfrost]

hi,

auf
http://i-netlab.de/cgi-bin/index.cgi?display=40.12

/Den Wochentag berechnen

ist dazu eine Funktion. Den Algorithmus dazu hab ich mal beim studium bekommen... weiß jemand von wem der dort verbaute Alg. ist (ich tippe auf Gauss)???

Viele Grüße, rolf

[hilker]

Gaus'sche Formel

d = (19 * a + 24) % 30;
e = ((2*b) + (4*c) + (6*d) + 5) % 7;

[rolfrost]

Gaus'sche Formel

d = (19 * a + 24) % 30;
e = ((2*b) + (4*c) + (6*d) + 5) % 7;

hi,

ich kann keinen Bezug zu meiner Frage feststellen, sorry. Und was ist das für eine komische WebSite wo Du angegeben hast?

Viele Grüße, rolf

[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