Excel VBA - Ostersonntag

Auf welchen Tag fällt der Ostersonntag? Dieses Makro ist der Gausschen Osterformel nachempfunden.
 
Option Explicit

Sub ostersonntag()
    Dim intjahr As Date
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim d As Integer
    Dim e As Integer
    Dim M As Integer
    Dim N As Integer
    Dim ostern As Integer
    intjahr = InputBox("Geben Sie eine Jahreszahl ein")
    a = intjahr Mod 19
    b = intjahr Mod 4
    c = intjahr Mod 7
    M = 24
    N = 5
    d = (19 * a + M) Mod 30
    e = (2 * b + 4 * c + 6 * d + N) Mod 7
    If d + e = 35 Then
        ostern = 50
        ElseIf d = 28 And e = 6 And ((11 * M + 11) Mod 30) < 19 Then
        ostern = 49
    Else
        ostern = 22 + d + e
    End If
    MsgBox "Ostersonntag fällt auf den " & Format(DateSerial(intjahr, 3, ostern), "dd.mm.yyyy") _
    & vbCrLf & "Ostermontag fällt auf den " & Format(DateSerial(intjahr, 3, ostern + 1), "dd.mm.yyyy")
End Sub

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok