VB-Homepage Tipp 365

Ermitteln des Ostertermins

Es gibt wohl keinen zweiten Feiertag in Deutschland, der terminlich so abweichend ist, wie Ostern.
Wenn Sie also für Ihr Programm die Angaben des Ostertermins benötigen,
dann können Sie ab sofort nachfolgende Funktion nutzen.

Function GiveOstern(Jahr As Integer) As Date
Dim Tag%, Monat%
Dim x1%, x2%, x3%, x4%, x5%

x1 = Jahr Mod 19
x2 = Jahr Mod 4
x3 = Jahr Mod 7
x4 = (19 * x1 + 24) Mod 30
x5 = (2 * x2 + 4 * x3 + 6 * x4 + 5) Mod 7
Tag = 22 + x4 + x5

If Tag < 32 Then
    Monat = 3
Else
    Tag = x4 + x5 - 9
    If Tag = 26 And x4 = 28 And x5 = 6 And x1 > 10 Then Tag = 18
    If Tag = 26 Then Tag = 19
    Monat = 4
End If

GiveOstern = DateSerial(Jahr, Monat, Tag)

End Function

Aufruf :        Ostertermin = GiveOstern("Jahresangabe")

Die Variable Ostertermin enthält danach das Datum des Termins.


Tipp-Download

Quelle : CABWARE / http://www.ls-bb.tu-cottbus.de/cebware/!start.asp

Zurück zur Übersichtsseite