Pasqua ... per sempre
Ho trovato questa funzione che permette di determinare la data della
Pasqua (cattolica) a partire dall'anno solare (occidentale).
Senza entrare nel dettaglio di come si determini in via ufficiale tale
data, la funzione si presenta in maniera ... estremamente semplice:
Function Pasqua(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)
Pasqua = DateSerial(anno, r \ 31, (r Mod 31) + 1)
End Function
Poche righe di istruzioni e la data è determinata!
Ecco comunque le date delle ... Pasque dei prossimi 20 anni:
anno |
giorno di Pasqua |
2024 |
31 marzo |
2025 |
20 aprile |
2026 |
5 aprile |
2027 |
28 marzo |
2028 |
16 aprile |
2029 |
1 aprile |
2030 |
21 aprile |
2031 |
13 aprile |
2032 |
28 marzo |
2033 |
17 aprile |
2034 |
9 aprile |
2035 |
25 marzo |
2036 |
13 aprile |
2037 |
5 aprile |
2038 |
25 aprile |
2039 |
10 aprile |
2040 |
1 aprile |
2041 |
21 aprile |
2042 |
6 aprile |
2043 |
29 marzo |
2044 |
17 aprile |
|