|
Geschrieben von: Marcus Rose
|
|
Sonntag, 11. Mai 2008 um 06:19 Uhr |
Ostern - Berechnung des OstersonntagAuf 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
|
VBA Makro Beispiele 
