Function DatePâques(ByVal DateDon As Date)
Const EqxPrinRéf As Date = #3/21/2007#, AnTropiq As Double = 365.2422
Const PleLuneRéf As Date = #3/3/2007#, Lunaison As Double = 29.5306
Const DimanchRéf As Date = #1/7/2007#
DateDon = DateSerial(Year(DateDon), 1, 1)
DatePâques = DateSuiv(DateSuiv(DateSuiv(DateDon, EqxPrinRéf, AnTropiq, -1), PleLuneRéf, Lunaison), DimanchRéf, 7)
End Function
Function DateSuiv(ByVal DateDon As Date, DateRéf As Date, Cycle As Double, Optional ByVal JrAj As Double = 0) As Date
DateSuiv = DateRéf + Cycle * Int((DateDon - DateRéf + JrAj) / Cycle + 1)
End Function