----- Original Message ----- From: "Roger Millin" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Tuesday, July 24, 2007 11:03 AM Subject: [canals-list] Re: Easter 2008
> Trevor wrote: >> The ecclesiastical rules are: >> >> a.. Easter falls on the first Sunday following the first > ecclesiastical >> full moon that occurs on or after the day of the vernal equinox; >> b.. this particular ecclesiastical full moon is the 14th day of a > tabular >> lunation (new moon); and >> c.. the vernal equinox is fixed as March 21. >> resulting in that Easter can never occur before March 22 or later > than April >> 25 > > Oh that's straightforward then, it's a wonder Steve couldn't work it > out for himself! ;-)) > Are you paying attention at the back there Haywood because I will be > asking questions at the end of the class? ;-)) > Roger 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 Process Safety & Development Specialist Don't repeat history, unreported chemical lab/plant near misses at http://www.crhf.org.uk Only two things are certain: The universe and human stupidity; and I'm not certain about the universe. ~ Albert Einstein
