Find datoen på påske

Dette bliver nok lidt af en udfordring :o)

Er det muligt at lave et script det kan fortælle mig hvornår det er påske ?

kriterier for hvornår påsken falder kan findes her: http://www.emu.dk/gym/fag/as/inspiration/uvforloeb/paaske.html

Nogle der tør prøve :o)

//SRK

-----------------
Hvis vi snakker VB ser den sådan ud ... hvis det er en hjælp

Function SkærTorsdag(HvilketÅr As Integer) As Date
    Dim d As Integer
    d = (((255 - 11 * (HvilketÅr Mod 19)) - 21) Mod 30) + 21
    SkærTorsdag = DateSerial(HvilketÅr, 3, 1) + d + (d > 48) + 3 - ((HvilketÅr + HvilketÅr \ 4 + _
        d + (d > 48) + 1) Mod 7)
End Function
-----------------