Il calcolo della Pasqua

Routine che restituisce il giorno della Pasqua passando 
come parametro l'anno. L'algoritmo è valido per tutti gli anni 
nel Calendario Gregoriano, ossia dal 1583 in poi. 
Basata su un metodo sviluppato nel 1876 e che comparve 
nell'Ecclesiastical Calendar di Butcher, poi ripubblicato. 
G.Paolo Bizzaro 
 
Public Function PasquaGregoriana(anno%) 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) 
PasquaGregoriana = DateSerial(anno%, r \ 31, (r Mod 31) + 1) 
End Function

Testato su: Tutti i Sistemi operativi