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:
Tips: Om de getallen te formatteren naar uw normaal gebruikte datumformaat, kunt u ook de functie Datumnotatie toepassen van Kutools voor Excel gebruiken, zoals in de onderstaande schermafbeelding te zien is:
|
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 Function3. 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.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen