Ostersonntag eines Jahres berechnen

[flomei]

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]