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

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

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

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