calcul du jour de paques

Question

Bonjour,

j'ai une formule de calcul du jour de Paques prise dans un livre mais que j'ai du modifier car il y avait des inversions dans les instructions mais cela ne fonctionne pas pour 2015

a = iAnnee mod 19

b = 234 - 11 + a

c = b mod 30

d = (round(c/7,0)*7)-6

paques =dateserial(iannee,4,c)

quelqu'un aurait il un autre calcul ?

Merci

Answer 1

Bonjour,

Cette fonction n'est pas la mienne (peut-être Isabelle ?); il faut passer l'année en paramètre :

Private Function fPaques(An) As Date
'Calcule date Paques
 
Dim a As Integer, b As Integer, C As Integer, d As Integer
Dim e As Integer, f As Integer, g As Integer, h As Integer
Dim I As Integer, J As Integer, k As Integer, l As Integer
Dim M As Integer, n As Integer, p As Integer
 
a = An Mod 19
b = An \ 100
C = An 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
n = (h + l - 7 * M + 114) \ 31
p = (h + l - 7 * M + 114) Mod 31
 
fPaques = DateSerial(An, n, p + 1)
 
End Function

Cordialement.

Daniel

Answer 2

Bonjour,

Essayez d'adapter les formules sur cette page : http://blogs.microsoft.fr/office/excel-les-jours-feries.html

---

En espérant avoir pu rendre service (MehdiH)
Retrouvez moi sur Office Users

Answer 3

merci beaucoup. c'est une sacrée formule :-) !

Boisselière