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)Beenden Sie die Eingabe mit »Datei | Schließen und zurück zu Microsoft Excel«. Wenn Sie jetzt »=Ostern(2003)« in die Tabelle schreiben, erhalten Sie das Ergebnis »37731«. Nun markieren Sie die Zelle und führen »Format | Zellen« aus. Im Register »Zahlen« klicken Sie auf die Kategorie »Datum« und wählen rechts das gewünschte Format. Mit »OK« sehen Sie das Osterdatum »20. April 2003«.
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
2. Funktionen für weitere Feiertage ergänzen
Weitere variable Feiertage wie zum Beispiel Christi Himmelfahrt oder Pfingsten stehen zeitlich in fester Beziehung zu Ostern. In VBA können Sie deshalb schnell zusätzliche Funktionen dafür ergänzen. Wechseln Sie mit [Alt]+[F11] wieder zum VBA-Editor und ergänzen Sie nach der Osterfunktion zum Beispiel für Pfingsten folgende Zeilen:
Public Function Pfingsten(Jahr As Integer)Auf diese Weise können Sie auch für die anderen variablen Feiertage Funktionen definieren, die jeweils eine feste Tageszahl zum Ostersonntag addieren oder subtrahieren. Die Tageszahlen finden Sie in folgender Tabelle:
Pfingsten = Ostern(Jahr) + 49
End Function
Rosenmontag: -48
Aschermittwoch: -46
Karfreitag: -2
Christi Himmelfahrt: +39
Pfingsten: +49
Fronleichnam: +60
3. Funktionen als Add-in integrieren
Um die VBA-Funktionen in Excel zu integrieren, löschen Sie alle Werte auf dem Arbeitsblatt und führen dann »Datei | Speichern unter« aus. Wählen Sie als »Dateityp« das »Microsoft Excel-Add-in«, vergeben Sie einen Namen wie »Ostervba« und klicken Sie auf »Speichern«. Schließen Sie die Datei.
Öffnen Sie als nächstes eine neue, leere Arbeitsmappe und führen Sie »Extras | Add-in-Manager« aus. Im folgenden Dialog klicken Sie auf »Durchsuchen«, navigieren zu Ihrem neuen Add-in und klicken dann auf »OK«. Jetzt erscheint »Ostervba« aktiviert in der Liste der verfügbaren Add-ins. Bestätigen Sie mit »OK«.
Künftig können Sie die zusätzlichen Funktionen in allen Arbeitsmappen verwenden. Eine Beispieldatei für das Add-in »Ostervba« finden Sie auf der Heft-CD unter CHIP-Code Praxis02.
! Hintergrund: So wurden die Osterfeiertage festgelegt
Das erste Kirchenkonzil im Jahre 325 hat Ostern auf den ersten Sonntag nach dem ersten Vollmond des Frühlings ab dem 21. März festgelegt. Um die Berechnung der Mondphasen im Jahresverlauf zu umgehen, hat der Mathematiker Carl Friedrich Gauß 1800 seine äOsterformelô entwickelt. Für den julianischen Kalender gilt diese Formel uneingeschränkt, für den gregorianischen Kalender für alle Jahre von 1583 bis 8202. Mehr Infos dazu finden Sie unter: www.goblack.de/desy/sc12chip/