Calcolare la Pasqua Gregoriana

di , in Classic ASP, Coding,

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

Visualizza/aggiungi commenti

Calcolare la Pasqua Gregoriana (#57) 710 295
| Condividi su: Twitter, Facebook, LinkedIn, Google+

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

I più letti di oggi