Compléments pour Microsoft Access

http://access.fr.free.fr/

Calcul du jour de Pâques (Dates & Heures)

Description 

Cette fonction permet de calculer le dimanche de Pâques d'une année précise.

 
Synthaxe 

Expression_Date = fPaques(wAn)

La synthaxe de la fonction fPaques comprend l'élément suivant :

ElémentsDescription

wAn

Expression numérique correspondant à l'année dont on souhaite calculer le jour de Pâques.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


 Public Function fPaques(wAn%) As Date
'Pâques est le dimanche qui suit le quatorzième jour de la
'Lune qui tombe le 21 mars ou immédiatement après

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 'détermine le mois
wP = (wH + wL - 7 * wM + 114) Mod 31 'détermine le jour
fPaques = DateSerial(wAn, wN, wP + 1)

'** A titre d'info :************'
'** dtVenSaint = fPaques - 2****'
'** dtLunPaq = fPaques + 1******'
'** dtAscension = fPaques + 39**'
'** dtDimPent = fPaques + 49****'
'** dtLunPent = fPaques + 50****'

End Function