Comment calculer la date de Pâques dans Excel?

Comme nous le savons tous, les vacances de Pâques sont toujours le premier dimanche après la première pleine lune ecclésiastique qui survient le 21 mars ou après, de sorte que la date de Pâques de chaque année peut être différente de celle illustrée ci-dessous. Pour obtenir la date de Pâques spécifique d'une année donnée, cet article peut vous rendre service.

Calculer la date de Pâques d'une année donnée avec la formule

Calculer la date de Pâques d'une année donnée avec la fonction définie par l'utilisateur

Calculer la date de Pâques d'une année donnée avec la formule

Pour obtenir la date de Pâques d'une année donnée, la formule suivante peut vous aider, procédez comme suit:

1. Entrez cette formule: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 dans une cellule vide à côté de votre année donnée, B2, par exemple, voir capture d'écran:

2. Ensuite, faites glisser la poignée de recopie vers les cellules dans lesquelles vous souhaitez calculer la date de Pâques de la date donnée, et des nombres à cinq chiffres sont affichés dans les cellules, voir capture d'écran:

3. Et puis vous devez formater les nombres au format de date:

(1.) Sélectionnez les numéros à 5 chiffres et faites un clic droit pour choisir Format de cellule depuis le menu contextuel;

(2.) Dans le sauté Format de cellule boîte de dialogue, cliquez sur Numéro onglet et sélectionnez Date du Catégories volet, puis choisissez un format de date que vous aimez dans la zone de liste de droite, voir capture d'écran:

4. Et puis, les nombres ont été formatés comme le format de date dont vous avez besoin, et vous pouvez obtenir la date de Pâques de l'année donnée, voir capture d'écran:

Calculer la date de Pâques d'une année donnée avec la fonction définie par l'utilisateur

Fonction définie par l'utilisateur peut également vous aider à calculer la date de Pâques d'une année spécifique.

1. Maintenez le ALT + F11 clés, puis il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Calculez la date de Pâques de l'année donnée:

Public Function EasterDate(Yr As Integer) As Date
'Updateby Extendoffice 20160530
  Dim x As Integer
  x = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
  EasterDate = DateSerial(Yr, 3, 1) + x + (x > 48) + 6 - ((Yr + Yr \ 4 + _
      x + (x > 48) + 1) Mod 7)
End Function

3. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul et entrez cette formule: = date de Pâques (A2) dans une cellule vide à côté de vos données correspondantes, puis faites glisser la poignée de remplissage vers les cellules auxquelles vous souhaitez appliquer cette formule, vous obtiendrez des nombres à cinq chiffres, voir capture d'écran:

5. Et puis, vous devez modifier les nombres au format de date selon vos besoins. Veuillez consulter l'étape 3 de la méthode ci-dessus pour les mettre en forme à ce jour.