Palm Sunday Fell On ...

[Code Doc]

... April Fools' Day last Sunday. During the last 100 years:

(1) How many times did Palm Sunday fall on April 1?
(2) When will it occur again?

Anybody know? Just curious.

[szlamany]

Call the formula in a loop

Public Function EasterDate2(Yr As Integer) As Date
    Dim D As Integer
    D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
    EasterDate2 = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - ((Yr + Yr \ 4 + _
            D + (D > 48) + 1) Mod 7)
End Function