Kalender forever

Teil 8: VBA: Geburts-/Festtagskalender

26.9.2008 von Redaktion pcmagazin

ca. 1:35 Min
Ratgeber
  1. VBA: Geburts-/Festtagskalender
  2. Teil 2: VBA: Geburts-/Festtagskalender
  3. Teil 3: VBA: Geburts-/Festtagskalender
  4. Teil 4: VBA: Geburts-/Festtagskalender
  5. Teil 5: VBA: Geburts-/Festtagskalender
  6. Teil 6: VBA: Geburts-/Festtagskalender
  7. Teil 7: VBA: Geburts-/Festtagskalender
  8. Teil 8: VBA: Geburts-/Festtagskalender
  9. Teil 9: VBA: Geburts-/Festtagskalender
  10. Teil 10: VBA: Geburts-/Festtagskalender

Ein Problem bei den Feiertagen ist, dass es sowohl fixe als auch bewegliche gibt. Die fixen Feiertage wie Weihnachten oder Neujahr fallen in jedem Jahr auf das gleiche Datum und bereiten den Kalenderproduzenten daher keine Probleme. Schwieriger wird es bei den beweglichen Feiertagen wie Karfreitag, Himmelfahrt oder Pfingsten, die sich allesamt am christlichen Osterfest orientieren. Und das fällt jedes Jahr auf ein anderes Datum, genauer: auf den Sonntag nach dem ersten Vollmond im Anschluss an die März-Tagundnachtgleiche - so will es der bis heute gültige Beschluss eines Konzils, das im Jahre 325 in Nicäa (dem heutigen Iznik in der Türkei) abgehalten wurde. Der Mathematiker und Astronom Carl Friedrich Gauß (1777-1855) hat diese kaum nachvollziehbare Festlegung in einen konkreten Algorithmus überführt, der in der benutzerdefinierten Funktion Osterdatum (siehe unten) eine BASIC-gemäße Umsetzung findet. Die Einzelheiten dieser Rechenvorschrift dürften normal veranlagte Menschen - der Autor schließt sich da ein - kaum verstehen. Wichtig ist nur: Die Funktion berechnet das Osterdatum eines im int- Jahr-Argument angegebenen Jahres, das zwischen 1900 und 2078 liegen muss. Bei allen Jahreszahlen unteroder oberhalb dieser Zeitspanne liefert der Algorithmus unter Umständen ein falsches Ergebnis.

VBA: Geburts-/Festtagskalender
© Archiv

Feiertagsberechnung Rechnen lassen: Das kleine Listing berechnet die Feiertage für Ihren Kalender. 1: Function OsterDatum(intJahr _ 2: As Integer) As Date 3: Dim intA As Integer 4: Dim intB As Integer 5: Dim intC As Integer 6: Dim intD As Integer 7: Dim intE As Integer 8: Dim intTag As Integer 9: Dim intMonat As Integer 10: intA = intJahr Mod 19 11: intB = intJahr Mod 4 12: intC = intJahr Mod 7 13: intD = (19 * intA + 24) Mod 30 14: intE = (2 * intB + 4 * intC + _ 15: 6 * intD + 5) Mod 7 16: intTag = 22 + intD + intE 17: intMonat = 3 18: If intTag > 31 Then 19: intTag = intD + intE - 9 20: intMonat = 4 21: End If 22: If intTag = 26 And intMonat _ 23: = 4 Then 24: intTag = 19 25: End If 26: If intTag = 25 And intMonat = _ 27: 4 And intD = 28 And intE = 6 _ 28: And intA > 10 Then 29: intTag = 18 30: End If 31: OsterDatum = DateSerial(Year: _ 32: =intJahr, Month:=intMonat, _ 33: Day:=intTag) 34: End Function

Mehr lesen

Chronologische Liste und Netflix-Links

Marvel-Filme- und -Serien: Das ist die richtige Reihenfolge

Neuerscheinungen in der Übersicht

Netflix: Neue Filme und Serien

Vorschau auf Film- und Serien-Highlights

Amazon Prime Video: Neuheiten

Weiter zur Startseite  

Mehr zum Thema

Mit unseren Tipps schießen Sie im Winter bessere Fotos.

Licht, Kälte und mehr

Fotografieren im Winter: 9 Tipps für bessere Fotos

Im Winter fordern Lichtverhältnisse, Motivumgebungen und Kälte Kamera und Fotografen. Wir verraten, worauf Sie achten müssen.

So kündigen Sie Ihre ADAC-Mitgliedschaft online per E-Mail.

Automobilclub

ADAC-Mitgliedschaft kündigen: So einfach geht's online…

Wer seine ADAC-Mitgliedschaft kündigen möchte, bekommt hier aktuelle Tipps. Wir zeigen Ihnen, wie das online per Formular oder E-Mail möglich ist.

Netflix

Kosten, Apps, Kündigung und Co.

10 wichtige Fragen zu Netflix in Deutschland

Preise, kompatible Geräte, Datenrate, Serien- und Filmangebot von Netflix: Wir beantworten die wichtigsten Fragen rund um den Streaming-Dienst.

PC & Laptop kühlen

BIOS-Tricks, Passivkühlung und mehr

PC-Lüfter leiser machen: Diese 6 Tipps helfen

Die Komponenten eines PCs erzeugen Hitze. Lüfter sorgen meist für eine lästige Geräuschkulisse. Mit unseren Tricks wird Ihr PC flüsterleise.

Rainbow Six: Siege (PC, PS4, Xbox One)

PC, PS4, Xbox One & Co.

Spiele-Releases 2015 - diese Games erscheinen im Dezember

Die Spiele-Releases im Dezember 2015 bieten wieder spannende Neuheiten für PC, PS4, Xbox One und mehr.