none
calcul du jour de paques RRS feed

  • 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

    dimanche 21 juin 2015 16:13

Toutes les réponses

  • 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

    dimanche 21 juin 2015 16:38
  • 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

    lundi 22 juin 2015 08:22
  • merci beaucoup. c'est une sacrée formule :-) !

    Boisselière

    lundi 22 juin 2015 13:46