Fonction VBA : easterDate

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

Utilisation :

easterDate(annee)

ou

easterDate(date)


Exemples d'utilisation

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

Sub exemple()

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

End Sub
fonction vba excel date paques easter

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

Sub exemple2()

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

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

End Sub
fonction vba excel date paques easter

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

Sub exemple3()

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

End Sub
fonction vba excel date paques easter

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