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!

Ti interessa un anno in particolare?

Ecco comunque  le date delle ... Pasque dei prossimi 20 anni:

anno giorno di Pasqua
2017 16 aprile
2018 1 aprile
2019 21 aprile
2020 12 aprile
2021 4 aprile
2022 17 aprile
2023 9 aprile
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
                                        
home ::. giudizi ::.  foglio elettronico ::. polis ::. posta ::. calendario ::. la "0" col bicchiere ::. verifiche on line 

tutte le parole frase esatta
segnala questa pagina ad un amico