Function Ostersonntag1(dasjahr As Long) As Date
Ostersonntag1 = CDate(WorksheetFunction.Round((CDate(Day(Minute(dasjahr / 38) / 2 + 55) _
+ (IIf(Minute(dasjahr / 38) / 2 + 55 < 60, 1, 0)) & ".4." & dasjahr) / 7), 0) * 7 - 6)
End Function
Public Function Ostersonntag2(Optional ByVal nYear As Long = 0) As Date
Dim d As Long
Dim Delta As Long
d = (((255 - 11 * (nYear Mod 19)) - 21) Mod 30) + 21
Delta = d + IIf(d > 48, 1, 0) + 6 - ((nYear + Int(nYear / 4) + d + IIf(d > 48, 1, 0) + 1) Mod 7)
Ostersonntag2 = DateAdd("d", Delta, DateSerial(nYear, 3, 1))
End Function
Function Ostersonntag3(jahr As Integer) As Date
Dim x As Integer
x = (((255 - 11 * (jahr Mod 19)) - 21) Mod 30) + 21
Ostersonntag3 = DateSerial(jahr, 3, 1) + x + (x > 48) + 6 - ((jahr + jahr \ 4 + x + (x > 48) + 1) Mod 7)
End Function