Date et heure une fonction donnant la date de paques basé sur l'algo de meuss(MeeusJonebutcher)

[patricktoulon]

Bonjour a tous
je vous propose aujourd'hui la fonction paques selon l'algo de Meeus

'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 Function

Formule :
=Paques(2025)
=paques(année(A1))

Patrick

 

[gbinforme]

Bonjour à tous,
Je ne sait pas si c'est la méthode ou la fonction mais le résultat fournit 70% d'erreurs,
et donc vaudrait mieux éviter de s'en servir.

 

[patricktoulon]

je l'ai ré écrite en sequenciel in oneline j'ai des MOd qui passait avant

 

[gbinforme]

je l'ai ré écrite en sequenciel in oneline j'ai des MOd qui passait avant

La méthode a l'air correcte pour notre siècle.

 

[patricktoulon]

Bonjour @gbinforme
@Bernard_XLD l'a testé jusqu'en 3000 et visiblement ça colle

 

[Bernard_XLD]

Bonjour @gbinforme
@Bernard_XLD l'a testé jusqu'en 3000 et visiblement ça colle

de l'an 1900 à l'an 3000 exactement, tout est bon.
de 1583 à 1899, pour avoir l'ensemble du calendrier Grégorien, il faudrait sortir la date en texte avant 1900

 

[patricktoulon]

sur mon calendar j'avais speculé en dessous de 1900
en augmentant la date avec une opération la date + ((2000-lannée de la date ) années)pour repasser en date et non en string
mais j'ai bloqué a 1800 car en 17xx on perd 2 mois me semble t il et dans le 15 eme siecle aussi
le calendrier grégorien a été adopté à des différentes années selon les pays de 1500 a 1800il y a eu des chambouboul
donc en dessous c'est pas la peine , si on veut savoir, on ouvre les livres d'histoire