Some people may find this useful, it is a custom function to calculate the date of Easter Sunday
Code:
Function Easter(Year As Integer)
yy = Year
If yy < 1900 Then yy = 1900
If yy > 2299 Then yy = 2299
a = yy Mod 19
b = yy \ 100
c = yy Mod 100
d = b \ 4
e = b Mod 4
f = c \ 4
g = c Mod 4
h = (b + 8) \ 25
i = (b - h + 1) \ 3
j = (19 * a + b - d - i + 15) Mod 30
k = (32 + 2 * e + 2 * f - j - g) Mod 7
m = (a + 11 * j + 22 * k) \ 451
n = j + k - 7 * m + 114
mm = n \ 31
dd = (n Mod 31) + 1
Easter = DateSerial(yy, mm, dd)
End Function
=easter(
year)
