| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Easter date macro
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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Are there any Easter Eggs for Excel 2003? | Excel Discussion (Misc queries) | |||
| Obtain Easter date? | Excel Worksheet Functions | |||
| Easter Eggs in 2003 | Excel Discussion (Misc queries) | |||
| Easter Eggs? | New Users to Excel | |||
| Excel template for the date of Easter | Excel Discussion (Misc queries) | |||
Threaded Mode
