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 |
2025 |
20 aprile 2025 |
2026 |
5 aprile 2026 |
2027 |
28 marzo 2027 |
2028 |
16 aprile 2028 |
2029 |
1 aprile 2029 |
2030 |
21 aprile 2030 |
2031 |
13 aprile 2031 |
2032 |
28 marzo 2032 |
2033 |
17 aprile 2033 |
2034 |
9 aprile 2034 |
2035 |
25 marzo 2035 |
2036 |
13 aprile 2036 |
2037 |
5 aprile 2037 |
2038 |
25 aprile 2038 |
2039 |
10 aprile 2039 |
2040 |
1 aprile 2040 |
2041 |
21 aprile 2041 |
2042 |
6 aprile 2042 |
2043 |
29 marzo 2043 |
2044 |
17 aprile 2044 |
2045 |
9 aprile 2045 |
|