Calcolare la Pasqua Gregoriana
La Pasqua è vicina. Come fare però ad inserire una routine che la calcoli, e magari dia gli auguri ai nostri visitatori?
<%
Function PasquaGregoriana(anno)
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
response.write "Pasqa è "& _
PasquaGregoriana( Year(Now()) )
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
