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
|