Zusatz zu "Ostersonntag eines Jahres berechnen"

[Balu der Bär]

Moin,

da ich mir grad ein paar Algorithmen angucke bin ich in der Codelib auf Ostersonntag eines Jahres berechnen von flomei gestoßen. Dabei fiel mir auf das flomei's Algorithmus nur von 1700 bis 2199 gilt. Also hier schnell meine Umsetzung, diese Berechnung gilt für die Jahre 1583 bis 3900:

Delphi-Quellcode:

(* Gaußsche Osterformel (Berechnung des Ostersonntages)

  nach Carl Friedrich Gauß

  Der 22. März is der früheste Termin, der 25. April der letzte, auf den Ostern fallen kann.
  Gilt für die Jahre 1583 (Beginn des Gregorianischen Kalenders) bis 3900.

  Umsetzung: Balu der Baer
*)

function EasterSunday(Year : Integer) : TDateTime; 
var
a, b, c, d, e, H1, H2, n, m, temp, easter : Integer;
begin
if not ((Year > 1583) and (Year < 3900)) then
raise Exception.CreateFmt('function EasterSunday: parameter Year must be between 1583 and 3900 but is %d', [Year])
 else begin
 a := Year mod 19;
 b := Year mod 4;
 c := Year mod 7;
 H1 := Year div 100;
 H2 := Year div 400;
 n := 4 + H1 - H2;
 m := 15 + H1 - H2 - ((8 * H1 + 13) div 25);
 d := (19 * a + m) mod 30;
 e := (2 * b + 4 * c + 6 * d + n) mod 7;
 if d + e = 35 then easter := 50;
 if (d = 28) and (e = 6) and (a > 10) then easter := 49
  else easter := 22 + d + e;
 if easter > 31 then
  begin
   temp := easter - 31;
   case temp of
    26 : temp := 19;
    25 : if (d = 28) and (a > 10) then temp := 18;
   end;
   result := EncodeDate(Year, 4, temp);
  end
   else result := EncodeDate(Year, 3, easter);
end
end;

//Beispielaufruf:
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(DateTimeToStr(EasterSunday(StrToInt(Edit1.Text))));
end;

[negaH]

ich habe 3 Fragen:

1.) im Jahre 1981 war Ostersonntag am ?
2.) im Jahre 2076 ist Ostersonntag am ?
3.) warum liefert deine Funktion kein TDateTime als Resultat ?

Ich frage weil ich mindestens 7 unterschiedliche Delphi Sourcen habe und alle was anderes berechnen. Dann gibts noch mindestens 700 unterschiedliche PHP oder JAVA Sourcen im WEB die auch alle was anderes sagen. As meiner Sicht gilt "die Wege des Herrn sind unergründlich" besonders wenn er seine Feiertage berechnet ;)

Gruß Hagen

PS: http://www.weltzeituhr.com/infos/kir...eiertage.shtml

[Balu der Bär]

Hallo Hagen,

danke für dein Feedback. Ich habe deine 3 Fragen mal beherzigt und mich etwas genauer damit auseinandergesetzt, nach meinen Tests sollte es jetzt eigentlich stimmen. :-)

[Khabarakh]

EncodeDate ;)

[Nicolai1234]

Also die untere Grenze verstehe ich - davor hatten wir einen anderen Kalendar. Aber warum ist so eine Funktion nur bis zum Jahre 3900 richtig? Ändert sich da irgendwas :wink:

[mkinzler]

Zitat:

Zitat von Nicolai1605

Also die untere Grenze verstehe ich - davor hatten wir einen anderen Kalendar. Aber warum ist so eine Funktion nur bis zum Jahre 3900 richtig? Ändert sich da irgendwas :wink:

Warte es doch einfach ab. ;-)

[Balu der Bär]

Zitat:

Zitat von Khabarakh

EncodeDate ;)

Ok, habe es geändert. ;)

Auch nach 3900 liefert meine Funktion noch Ergebnisse, ob diese nach dem gregorianischen Kalender allerdings richtig sind kann ich nicht sagen. Außerdem, wer braucht schon die die Ostersonntage nach 3900? :P

[Meflin]

Zitat:

Zitat von Balu der Bär

Außerdem, wer braucht schon die die Ostersonntage nach 3900? :P

Zitat:

nur von 1700 bis 2199 gilt

und wer braucht die Ostersonntage nach 2199 :roll:

[negaH]

Zitat:

Auch nach 3900 liefert meine Funktion noch Ergebnisse, ob diese nach dem gregorianischen Kalender allerdings richtig sind kann ich nicht sagen. Außerdem, wer braucht schon die die Ostersonntage nach 3900?

Da hast du absolut Recht, das braucht keiner ;)

Aber wo in deinem Source wird denn eine Excpetion ausgelösst wenn das übergebene Jahr ausserhalb deiner Schranken ist ? Das sehe ich nämlich nicht und ergo könnte ein Anwender deiner Funktion eben auch Ostern für das Jahr 4000 berechnen wollen oder für das Jahr 100 nach Christi (der User der Funktion weis ja nicht was ein gregorianischer Kalender ist und schon garnicht ab wann der gültig war).

Ergo: mache deine Funktion bulletproof das ist immer ein guter Stil, indem du das Jahr überprüftst und falls es ausserhalb deiner gültigen Schranken ist raise eine Exception.

Gruß Hagen

[edit]
komme mir ja nicht mit dem Argument: "das habe ich ja als Remark oben drüber geschrieben" ! Das interesiert nicht und verhindert niemals die Möglichkeit eben denoch ein Jahr wie 100 oder 4000 zu übergeben. Also lieber weniger Remarks dafür aber Code bei dem der Entwickler weiter gedacht hat als üblich.
[/edit]

[Balu der Bär]

Zitat:

komme mir ja nicht mit dem Argument: "das habe ich ja als Remark oben drüber geschrieben" !

Niemals würde ich dir widersprechen. :mrgreen:

Habs oben geändert und nochmals bisschen getestet, sollte jetzt fehlerfrei laufen. Danke an alle. :-)