One more trouble with Dates

[Ralph M]

Can anyone tell me how to write the Date Formula to show the Date for the Saturday after the 2nd Sunday after Easter? Cell "C1" is the year.
Thanks in advance.

 

[DRJ]

Do you know that Easter is calculated by cycles of the moon? This can be done, but its not a simple equation. I have a function to get the date for Easter. Ill post it as soon as I find it.

 

[Ekim]

If C1 is showing 2004, you can get Good Friday for this year with the following formula from Chip Pearson:

=(FLOOR(DAY(MINUTE($C$1/38)/2+56)&"/5/"&$C$1,7)-34)-2

Once you know the date for Good Friday, simply add a number to get the date that you want (that depends on how you define “after Easter” – does that mean the Tuesday after Easter Monday?)

Regards,

Mike

 

[DRJ]

Ok This will get you the date for Easter

x = (((255 - 11 * (xYear Mod 19)) - 21) Mod 30) + 21
Easter = DateSerial(xYear, 3, 1) + x + (x > 48) + 6 - ((xYear + xYear \ 4 + x + (x > 48) + 1) Mod 7)


xYear is just the year you want.

Then just add 20 to this to get the Saturday after two Sundays after Easter.

 

[DRJ]

So to put this together to a custom function

Public Function Easter(xYear As Integer)

Dim x As Integer
Dim EasterDate As Date

x = (((255 - 11 * (xYear Mod 19)) - 21) Mod 30) + 21
Easter = DateSerial(xYear, 3, 1) + x + (x > 48) + 6 - ((xYear + xYear \ 4 + x + (x > 48) + 1) Mod 7)

End Function

So you could put

=Easter(C1) +20

For the date you want

You could do this with a normal function, but it would be a mess.

 

[Ralph M]

Easter SUNDAY.

 

[Ralph M]

Thanks everyone, I have the Date for Easter and I'll just add 20 to that.
Thanks again for all of your help.