Easter date macro

[Guest]

Hi,
Could someone please let me know why the following macro stopped working? IT
did replace my computer!

This macro used to work:

Public Function EasterDate(Yr As Integer) As Date

Dim d As Integer
d = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
EasterDate = DateSerial(Yr, 3, 1) + d + (d > 48) + 6 - ((Yr + Yr \ 4 + _
d + (d > 48) + 1) Mod 7)

End Function

 

[Peo Sjoblom]

It's a user defined function, you need to "install " it


http://www.mvps.org/dmcritchie/excel/install.htm




Or you can use built in functions


=DOLLAR(("4/"&A1)/7+MOD(19*MOD(A1,19)-7,30)*14%,)*7-6

won't work if you are using 1904 date system (default in Mac)


=DATE(A1,3,29.56+0.979*MOD(204-11*MOD(A1,19),30)-
WEEKDAY(DATE(A1,3,28.56+0.979*MOD(204-11*MOD(A1,19),30))))


will work under all date systems


for both formulas put the year in A1 and you will get the Easter date



--


Regards,


Peo Sjoblom