On Tue, 24 Jul 2007 20:25:05 +0100, "Ron Jones" <[EMAIL PROTECTED]> wrote:
> >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 What is that VB - urggghhh Can we have it as a javascript, PHP and Spreadsheet form too please ;-) -- Malcolm
