Funktionen fⁿr Osterdatum und variable Feiertage integrieren

Sie m÷chten mit Excel den Ostersonntag und andere variable Feiertage berechnen und die Methode in den Funktionsumfang integrieren.

1. Osterformel in VBA umsetzen
Da die Formel zur Berechnung der Osterfeiertage mehrere Schritte und Hilfsgr÷▀en ben÷tigt, realisieren Sie sie am besten als VBA-Funktion.
Fⁿhren Sie in Excel den Befehl ╗Extras | Makro | Makros½ aus, geben als Namen ╗Ostern½ ein. Klicken Sie dann auf ╗Erstellen½ und schreiben Sie in den VBA-Editor folgende Anweisungen oder kopieren Sie sie von der Heft-CD unter CHIP-Code PRAXis02:

Public Function Ostern(Jahr As Integer)
Dim a, b, c, d, e, m, n, s
a = Jahr Mod 19
b = Jahr Mod 4
c = Jahr Mod 7
s = Int(Jahr / 100)
m = 10 + s - Int(s / 4) - Int((s - 14 - Int((s + 8) / 25)) / 3)
n = (4 + s - Int(s / 4)) Mod 7
d = (m + 19 * a) Mod 30
If (d = 28) And (a >= 11) Then d = 27
If d = 29 Then d = 28
e = (n + 2 * b + 4 * c + 6 * d) Mod 7
Ostern = DateValue("21.MΣrz" & Str(Jahr)) + d + e + 1
End Function

Public Function Pfingsten(Jahr As Integer)
Pfingsten = Ostern(Jahr) + 49
End Function