Ostersonntag ermitteln

Sprache / Programm: Visual Basic ab Version 5.0 · VBA ab Office 95

Beschreibung

Ermittelt nach der Gaußschen Formel den Ostersonntag. An diesem Tag hängen eine Reihe weiterer Feiertage. Mehr Details, Formeln und Daten, die mit dem Ostersonntag in Beziehung stehen (z.B. Karneval, Pfingsten) beschreibt die JavaScript-Variante dieses Problems.

VBA-Quelltext

Public Function OsterSonntag(Datum As Date) As Date
Dim A As Integer, D As Integer, E As Integer, Jahr As Integer
Jahr = Year(Datum)
If (1904 < Jahr) And (Jahr < 2100) Then ' Datum zulässig ?
A = Jahr Mod 19
D = (19 * A + 24) Mod 30
E = (2 * (Jahr Mod 4) + 4 * (Jahr Mod 7) + 6 * D + 5) Mod 7
OsterSonntag = CDate(DateSerial(Jahr, 3, 22 + D + E))
If Month(OsterSonntag) = 4 Then
If Day(OsterSonntag) = 26 Or (Day(OsterSonntag) = 25 And E = 6 And A > 10) Then
OsterSonntag = OsterSonntag - 7
End If
End If
End If
End Function

Argumente der Funktion/Prozedur

Datum: Beliebiges Datum aus dem Jahr, für den der Ostersonntag berechnet werden soll. Es wird nur das Jahr verwendet, die übrigen Informationen werden ignoriert.

Rückgabewert

Wert vom Typ Datum, der dem Datum des Ostersonntages entspricht.

Hinweis

Danke an Volker Gugel für die Korrektur des Programms.

Anwendungsgebiete, Fehler und Warnungen

Der Gültigkeitsbereich der Formeln ist auf die Jahre zwischen 1904...2099 beschränkt.