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