Sub Test()
x = Ostersonntag4(2023)
End Sub
Function Ostersonntag4(Jahr As Integer) As Date
a = Int(Jahr Mod 19)
b = Int(Jahr Mod 4)
c = Int(Jahr Mod 7)
k = Int(Jahr / 100)
p = Int((8 * k + 13) / 25)
q = Int(k / 4)
M = Int((15 + k - p - q) Mod 30)
d = Int((19 * a + M) Mod 30)
N = Int((4 + k - q) Mod 7)
e = Int((2 * b + 4 * c + 6 * d + N) Mod 7)
If d = 29 And e = 6 Then
O = 50
ElseIf d = 28 And e = 6 And a > 10 Then
O = 49
Else
O = (22 + d + e)
End If
Ostersonntag4 = DateSerial(Jahr, 3, O)
End Function
Function dFormat(dat As Date) As String
dFormat = Format(dat, "ddd dd.MM.yyyy")
End Function