Calcolo della Pasqua

Funzione che richiede come parametro l'anno di cui si deve calcolare la Pasqua e ritorna un seriale con la data

'http://it.wikipedia.org/wiki/Calcolo_della_Pasqua
Public Function Pasqua(ByVal anno As Integer) As Date
   Dim a%, b%, c%, p%, q%, r%
   a = anno% Mod 19: b = anno% \ 100: c = anno% Mod 100
   p = (19 * a + b - (b \ 4) - ((b - ((b + 8) \ 25) + 1) \ 3) + 15) Mod 30
   q = (32 + 2 * ((b Mod 4) + (c \ 4)) - p - (c Mod 4)) Mod 7
   r = (p + q - 7 * ((a + 11 * p + 22 * q) \ 451) + 114)
   Pasqua = DateSerial(anno%, r \ 31, (r Mod 31) + 1)
End Function