|
Hallo Mr.K
Neuer Versuch!
Sub BerechneOsterdatum()
Dim Jahr As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer, i As Integer, k As Integer, L As Integer, m As Integer, p As Integer
Dim Tag As Integer: Tag = (h + L - 7 * m + 114) Mod 31 + 1
Dim Monat As Integer: Monat = p
Dim Wochentag As String
Dim Ostersonntag As Date
Jahr = InputBox("Geben Sie das Jahr ein:")
a = Jahr Mod 19
b = Jahr \ 100
c = Jahr Mod 100
d = b \ 4
e = b Mod 4
f = (b + 8) \ 25
g = (b - f + 1) \ 3
h = (19 * a + b - d - g + 15) Mod 30
i = c \ 4
k = c Mod 4
L = (32 + 2 * e + 2 * i - h - k) Mod 7
m = (a + 11 * h + 22 * L) \ 451
p = (h + L - 7 * m + 114) \ 31
Ostersonntag = DateSerial(Jahr, Monat, Tag)
Wochentag = Format(Ostersonntag, "dddd")
MsgBox "Ostersonntag im Jahr " & Jahr & " ist am " & Tag & ". " & Monat & ". (" & Wochentag & ")"
End Sub
|