Trouvez la date du jour de Pâques

Trouvez la date du jour de Pâques pour une année définie

La date de Pâques est mobile et peut varier du 22 mars au plus tôt jusqu'au 25 avril au plus tard.

Comme d'autres journées fériées sont directement dépendantes du jour de Pâques, il est important de pouvoir la fixer à l'avance.

Utilisation :

LaDate = fnPaques(2019)

Public Function fnPaques(wAn%) As Date
    '/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '/ Les dates mobiles en fonction du jour de Pâques
    '/ sont donc également facilement calculable...
    '/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '/ Vendredi Saint = fPaques - 2
    '/ Lundi de Pâques = fPaques + 1
    '/ L'Ascension = fPaques + 39
    '/ Dimanche de Pentecote = fPaques + 49
    '/ Lundi de Pentecote = fPaques + 50
    
    Dim wA%, wb%, wC%, wD%, wE%, wF%, wG%, wH%
    Dim wI%, wJ%, wK%, wL%, wM%, wN%, wP%

    wA = wAn Mod 19   'Calcul du rang de l'année dans le cycle lunaire qui a 19 ans
    wb = wAn \ 100    'Calcul du siècle
    wC = wAn Mod 100  'Calcul du rang de l'année dans le siècle
    wD = wb \ 4
    wE = wb Mod 4
    wF = (wb + 8) \ 25
    wG = (wb - wF + 1) \ 3
    wH = (19 * wA + wb - wD - wG + 15) Mod 30
    wI = wC \ 4
    wK = wC Mod 4
    wL = (32 + 2 * wE + 2 * wI - wH - wK) Mod 7
    wM = (wA + 11 * wH + 22 * wL) \ 451
    wN = (wH + wL - 7 * wM + 114) \ 31
    wP = (wH + wL - 7 * wM + 114) Mod 31
    fnPaques = DateSerial(wAn, wN, wP + 1)
End Function