patricktoulon
XLDnaute Barbatruc
Bonjour a tous
je vous propose aujourd'hui la fonction paques selon l'algo de Meeus
Formule :
=Paques(2025)
=paques(année(A1))
Patrick
je vous propose aujourd'hui la fonction paques selon l'algo de Meeus
VB:
'patricktoulon
'algorythme de meeus https://fr.wikipedia.org/wiki/Calcul_de_la_date_de_P%C3%A2ques_selon_la_m%C3%A9thode_de_Meeus
'méthode dite de Meeus/Jones/Butcher)
'réputé pour être le plus sur
Function Paques(Y As Long) As Date
Dim a&, b&, c&, d&, e&, f&, g&, h&, i&, k&, L&, m&, Mx, Dx
a = Y Mod 19: b = Y \ 100: c = Y Mod 100: d = b \ 4: e = b Mod 4: f = (b + 8) \ 25: g = (b - f + 1) \ 3
h = (19 * a + b - d - g + 15) Mod 30: i = c \ 4: k = c Mod 4: L = (32 + 2 * e + 2 * i - h - k) Mod 7
m = (a + 11 * h + 22 * L) \ 451: Mx = (h + L - 7 * m + 114) \ 31: Dx = ((h + L - 7 * m + 114) Mod 31) + 1
Paques = DateSerial(Y, Mx, Dx)
End FunctionFormule :
=Paques(2025)
=paques(année(A1))
Patrick
Dernière édition: