Hoe de paasdatum te berekenen in Excel?

Zoals we allemaal weten, valt Pasen altijd op de eerste zondag na de eerste kerkelijke volle maan die plaatsvindt op of na 21 maart, dus de paasdatum kan elk jaar verschillen, zoals in de onderstaande schermafbeelding te zien is. Om de specifieke paasdatum van een bepaald jaar te achterhalen, kan dit artikel u helpen.

Paasdatum van een gegeven jaar berekenen met formule

Paasdatum van een gegeven jaar berekenen met een door de gebruiker gedefinieerde functie

Paasdatum van een gegeven jaar berekenen met formule

Om de paasdatum van een gegeven jaar te verkrijgen, kan de volgende formule u helpen. Volg deze stappen:

1. Voer deze formule in: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 in een lege cel naast uw gegeven jaar, bijvoorbeeld B2, zie onderstaande schermafbeelding:

2. Sleep vervolgens de vulgreep naar beneden naar de cellen waarin u de paasdatum van het gegeven jaar wilt berekenen, en er worden vijfcijferige getallen weergegeven in de cellen, zie onderstaande schermafbeelding:

3. Vervolgens moet u de getallen formatteren als datumformaat:

(1.) Selecteer de vijfcijferige getallen en klik met de rechtermuisknop om Celopmaak te kiezen uit het contextmenu;

(2.) In het pop-upvenster Celopmaak, klik op het tabblad Getal, selecteer Datum in het venster Categorie, en kies vervolgens een datumformaat dat u wilt uit de lijst rechts, zie onderstaande schermafbeelding:

4. De getallen zijn nu geformatteerd in het gewenste datumformaat, en u kunt de paasdatum van het gegeven jaar verkrijgen, zie onderstaande schermafbeelding:

Paasdatum van een gegeven jaar berekenen met een door de gebruiker gedefinieerde functie

De volgende door de gebruiker gedefinieerde functie kan u ook helpen om de paasdatum van een specifiek jaar te berekenen.

1. Houd de toetsen ALT + F11 ingedrukt, waarna het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Paasdatum van een gegeven jaar berekenen:

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. Sla de code vervolgens op en sluit deze, ga terug naar het werkblad en voer deze formule in: =easterdate(A2) in een lege cel naast uw corresponderende gegevens, en sleep vervolgens de vulgreep naar beneden naar de cellen waarop u deze formule wilt toepassen. U krijgt enkele vijfcijferige getallen, zie onderstaande schermafbeelding:

5. Vervolgens moet u de getallen wijzigen in het gewenste datumformaat. Raadpleeg stap 3 van de bovenstaande methode om ze te formatteren naar datum.