Ron suggested (tongue in cheek); > 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.
ROFL. Yeah sure Ron, but I was really looking for something that stretched my brain a little more (not) ;-)) Roger
