Titolo: Calcolo del giorno di Pasqua
Categoria: Codice |
|
Ultimo Aggiornamento: 10/05/06 |
Da un recente "daily tip" di 4DToday, segnaliamo il codice che permette di ottenere la data del giorno di Pasqua per un certo anno, che è il parametro da passare al metodo:
C_INTEGER($1;$G;$I;$C;$H;$I;$J;$L;$M;$D)
C_STRING(6;$0)
$G:=(($1%19)+1)-1
$I:=((19*$G)+15)%30
$C:=($1\100)
$H:=($C-($C\4)-(((8*$C)+13)\25)+(19*$G)+15)%30
$I:=$H-(($H\28)*(1-((29\($H+1))*((21-$G)\11))))
$J:=($1+($1\4)+$I+2-$C+($C\4))%7
$L:=$I-$J
$M:=3+(($L+40)\44)
$D:=$L+28-(31*($M\4))
$0:=String($D;"00")+"/"+String($M;"00")+"/"+String($1)
Fonte: 4DToday
Inviato da Paul Mohammadi
Inviato da: PierPaolo Sichera |
|
Visite: 13237 |
Se accedi con utente e password, puoi aggiungere dei commenti.