Mit folgendem Code kann man das Datum des Ostersonntags in einem beliebigen Jahr berechnen.
Code stammt von
mir aus
diesem Programm.
Delphi-Quellcode:
{
Diese Formel berechnet das Datum des Ostersonntags im Jahr "year".
Ostersonntag liegt immer zwischen dem 22. März und dem 25. April.
Diese Formel stammt vom Mathematiker Carl Friedrich Gauß (1777-1855).
Autor: Florian Meier
Webseite: [url]http://www.flomei.de[/url]
Gruß und Dank an alle Mitglieder der Delphi-PRAXIS ([url]www.delphipraxis.net[/url])
}
function EasterSunday(year: Integer) :
String;
var
a, b, c, d, e: Integer;
begin
a := year
mod 19;
b := year
mod 4;
c := year
mod 7;
d := ((a * 19) + 24)
mod 30;
e := (2 * b + 4 * c + 6 * d + 5)
mod 7;
if((22 + d + e) > 31)
then
begin
Result := IntToStr((d + e - 9)) + '
. April';
end else
begin
Result := IntToStr((22 + d + e)) + '
. März';
end
end;
HTH!
MfG Florian
[edit]
Folgende Ergänzung traf von
Billa per PN ein:
Zitat:
Gauss hat m.W.n. den Algorithmus eingegrenzt:
1. Er gilt nur von 1700 bis 2199
2. es gibt zwei Ausnahmen:
a) Anstelle des 26. Aprils ist immer der 19. April zu setzen,
b) Anstelle des 25. Aprils immer dann der 18. April, wenn d=28 und a>10.
[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]