En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1026733 visiteurs

 3 visiteurs en ligne

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


Catégorie : Les mémos - Dates - Heures
Page lue 69 fois

Vous êtes ici :   Accueil » Trouvez la date du jour de Pâques