Re: [canals-list] Re: Easter 2008

[Dorothy Robbie]

----- Original Message ----- 
From: "Ron Jones" <[EMAIL PROTECTED]>
To: <canals-list@yahoogroups.com>
Sent: Tuesday, July 24, 2007 8:25 PM
Subject: Re: [canals-list] Re: Easter 2008
> OR use...
>
> 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
>
> OR
> =FLOOR(DAY(MINUTE(B2/38)/2+56)&"/5/"&B2,7)-34
>
> OR
> 1. Let Year be the year
> 2. Set aa to MOD(Year,19)
> 3. Set bb to INT(Year/100) and cc to MOD(Year,100)
> 4. Set dd to INT(bb/4) and ee to MOD(bb,4)
> 5. Set ff to INT((bb+8)/25)
> 6. Set gg to INT((bb-ff+1)/3)
> 7. Set hh to MOD(19*aa+bb-dd-gg+15,30)
> 8. Set ii to INT(cc/4) and kk to MOD(cc,4)
> 9. Set ll to MOD(32+2*ee+2*ii-hh-kk,7)
> 10. Set mm to INT((aa+11*hh+22*ll)/451)
> 11. Set nn to INT((hh+ll-7*mm+114)/31) and pp to MOD(hh+ll-7*mm+114,31)
> 12. The value of nn gives the month (3 for March and 4 for April) and the 
> value of pp+1
> gives the day of the month.
>
> Ron Jones

I see you like to keep things simple!

Dorothy