Ostern ist nicht wie z.B. Weihnachten immer an einem bestimmten Tag, sondern wechselt von Jahr zu Jahr. Wir feiern den Ostersonntag immer am ersten Sonntag nach Vollmond im Frühling. Bloß wie rechnet man das aus? Mit dieser Frage hat sich auch der berühmte Mathematiker Carl Friedrich Gauß (1777 - 1855) beschäftigt und entwickelte die sogenannte Osterformel.


1. Starten Sie Visual Basic 6, legen Sie ein Standard-Exe-Projekt an und fügen Sie ein Modul hinzu.


2. Geben Sie in das Programmcodefenster des Moduls folgende Function ein:

Function FeiertagDatum(ByVal intJahr As Integer) As Date
Dim X As Integer, K As Integer, M As Integer, S As Integer
Dim A As Integer, D As Integer, R As Integer, OG As Integer
Dim SZ As Integer, OE As Integer, OS As Integer, Monat As Integer
X = intJahr
K = Int(X / 100)
M = 15 + Int((K * 3 + 3) / 4) - Int((K * 8 + 13) / 25)
S = 2 - Int((3 * K + 3) / 4)
A = X Mod 19
D = (19 * A + M) Mod 30
R = Int(D / 29) + (Int(D / 28) - Int(D / 29)) * Int(A / 11)
OG = 21 + D - R
SZ = 7 - (X + Int(X / 4) + S) Mod 7
OE = 7 - (OG - SZ) Mod 7
OS = OG + OE
Monat = 3
If OS > 31 Then
OS = OS - 31
Monat = Monat + 1
End If
FeiertagDatum = DateSerial(X, Monat, OS)
End Function

3. Schalten Sie auf das Programmcodefenster des Formulars um und geben Sie in die Form_Load Prozedur um und geben Sie folgende Befehle ein:

Private Sub Form_Load()
Dim intJahr As Integer
intJahr = InputBox("Bitte Jahr eingeben:", "Feiertage")
MsgBox Prompt:="Ostersonntag ist am " & FeiertagDatum(intJahr:=intJahr)
Unload Me
End Sub

Und das ist dann schon das ganze Projekt! Das ausgerechnete Datum wird dann von der Msgbox ausgegeben!
Ein paar Feiertage wie z.B. Christi Himmelfahrt oder Pfinsten hängen von Ostern ab und können so auch errechnet werden! Na dann, viel Spaß!