Vous avez apprécié ?
Partagez ;-)

Fonction VBA : easter_date

La fonction VBA easter_date renvoie la date de Pâques en fonction d'une année (ou de l'année d'une date), de 1900 à 2200.

Utilisation :

easter_date(annee)

ou

easter_date(date)


Exemples d'utilisation :

Calcul de la date de Pâques 2017 à partir de l'année easter_date(2017) :

Sub exemple()

    paques_2017 = easter_date(2017) 'Date de Pâques
   
    MsgBox "Pâques 2017 : " & Format(paques_2017, "d mmmm yyyy") 'Aperçu MsgBox

End Sub
fonction-vba-excel-date-paques - easter-date

Calcul de la date de Pâques 2017 à partir d'une date de cette même année easter_date(exemple_date) :

Sub exemple2()

    exemple_date = CDate("1/1/17") 'Date pour exemple

    paques_2017 = easter_date(exemple_date) 'Date de Pâques
   
    MsgBox "Pâques 2017 : " & Format(paques_2017, "d mmmm yyyy") 'Aperçu MsgBox

End Sub
fonction-vba-excel-date-paques - easter-date

Calcul de la date de Pâques 2017 à partir d'une date au format texte easter_date("10.7.17") :

Sub exemple3()

    paques_2017 = easter_date("10.7.17") 'Date de Pâques
   
    MsgBox "Pâques 2017 : " & Format(paques_2017, "d mmmm yyyy") 'Aperçu MsgBox

End Sub
fonction-vba-excel-date-paques - easter-date

Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 65 nouvelles fonctions).