Hallo Mr. K.

Gefällt dir das besser?

Noch nicht Optimiert!

Sub BerechneOsterdatum()
    Dim Jahr As Integer
    Jahr = InputBox("Geben Sie das Jahr ein:")
    Dim G As Integer, C As Integer, H As Integer, I As Integer, J As Integer, L As Integer
    Dim Monat As Integer, Tag As Integer
    G = Jahr Mod 19
    C = Jahr \ 100
    H = (C - C \ 4 - (8 * C + 13) \ 25 + 19 * G + 15) Mod 30
    I = H - H \ 28 * (1 - H \ 28 * (29 \ (H + 1)) * ((21 - G) \ 11))
    J = (Jahr + Jahr \ 4 + I + 2 - C + C \ 4) Mod 7
    L = I - J
    Monat = 3 + (L + 40) \ 44
    Tag = L + 28 - 31 * (Monat \ 4)
    MsgBox "Ostersonntag im Jahr " & Jahr & " ist am " & Tag & ". " & Monat & "."
End Sub