Kirchliche Feiertage berechnen Wissen Sie, wie man ermitteln kann, wann im Jahr xxxx Ostersonntag oder Himmelfahrt ist? Nein? Dann schauen Sie sich diesen Tipp an!
Autor:   LonelySuicide666	Bewertung:     [ Jetzt bewerten ]	Views:  26.368
www.vbapihelpline.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 116 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wissen Sie, wie man ermitteln kann, wann im Jahr xxxx Ostersonntag oder Himmelfahrt ist? Nein? Dann schauen Sie sich einmal nachfolgenden Tipp an!

Mit Hilfe dieser Rotuine lassen sich folgende Termine berechnen:

Aschermittwoch Karfreitag Ostersonntag Ostermontag

Himmelfahrt Pfingstsonntag Pfingstmontag Fronleichnam

Hierbei muß man eigentlich nur wissen, wie man das Datum für den Ostersonntag ermittelt. Alle anderen Daten lassen sich dann anhand des Ostersonntages berechnen.

Ostern ist stets am ersten Sonntag nach dem ersten Vollmond des Frühlingsanfangs (23.03).

' Osterformel nach Carl Friedrich Gauß (1777-1855)
Public Type Feiertage_Type
  Ostersonntag As Date
  Ostermontag As Date		' 1 Tag nach Ostersonntag
  Karfreitag As Date		' 2 Tage vor Ostersonntag
  Pfingstsonntag As Date	' 49 Tage nach Ostersonntag
  PfingstMontag As Date		' 50 Tage nach Ostersonntag
  Himmelfahrt As Date		' 39 Tage nach Ostersonntag
  Aschermittwoch As Date	' 46 Tage vor Ostersonntag
  Fronleichnam As Date		' 60 Tage nach Ostersonntag
End Type
 
Public Function Get_Feiertage(ByVal Jahr As Long) _
  As Feiertage_Type
 
  Dim a, b, c, d, e, f, s As Integer
  Dim M, N As Integer
 
  ' Gültigkeitsbereich ist vom Jahre 1583  - 8202
  If Jahr < 1583 Or Jahr > 8202 Then Exit Function
 
  ' Diese Function Rechnet das Datum des
  ' Vollmondes aus
  a = Jahr Mod 19
  b = Jahr Mod 4
  c = Jahr Mod 7
  M = Val(((8 * Val(Jahr / 100) + 13) / 25) - 2)
  s = Val(Jahr / 100) - Val(Jahr / 400) - 2
  M = (15 + s - M) Mod 30
  N = (6 + s) Mod 7
  d = (M + 19 * a) Mod 30
  If d = 29 Then
   d = 28
  ElseIf d = 28 Then
    If (Jahr Mod 19) > 10 Then d = 27
  End If
  e = (2 * b + 4 * c + 6 * d + N) Mod 7
 
  With Get_Feiertage
    .Ostersonntag = DateAdd("d", (d + e + 1), "21.03." & Jahr)
    .Ostermontag = DateAdd("d", 1, .Ostersonntag)
    .Karfreitag = DateAdd("d", -2, .Ostersonntag)
    .Pfingstsonntag = DateAdd("d", 49, .Ostersonntag)
    .Pfingstmontag = DateAdd("d", 50, .Ostersonntag)
    .Himmelfahrt = DateAdd("d", 39, .Ostersonntag)
    .Aschermittwoch = DateAdd("d", -46, .Ostersonntag)
    .Fronleichnam = DateAdd("d", 60, .Ostersonntag)
  End With
End Function

Beispiel:

' Ostersonntag 2002
Dim f As Feiertage_Type
f = Get_Feiertage(2002)
Debug.Print f.Ostersonntag