Funktion Ostern......aber wie.....
11.07.2004 22:27:58
maine-coon
Function Ostern(Yr As Integer) As Date
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
End Function
Was muss ich denn in die Zellen schreiben, damit dort steht, dass ostern am dd.mm.yyyy ist?
Anzeige