Hur beräknar jag påskdatum i Excel?
Som vi alla visste är påskhelgen alltid den första söndagen som efter den första kyrkliga fullmånen som inträffar den 21 mars eller senare, så påskdatumet för varje år kan vara annorlunda datum enligt följande skärmdump. För att få ett specifikt påskdatum för ett visst år kan den här artikeln göra dig en tjänst.
Beräkna påskdatum för givet år med formel
Beräkna påskdatum för ett visst år med användardefinierad funktion
Beräkna påskdatum för givet år med formel
För att få påskdatumet för ett visst år kan följande formel hjälpa dig, gör så här:
1. Ange denna formel: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 in i en tom cell bredvid ditt givna år, B2, till exempel, se skärmdump:
2. Dra sedan påfyllningshandtaget ner till cellerna som du vill beräkna påskdatum för det angivna datumet, och femsiffriga nummer visas i cellerna, se skärmdump:
3. Och sedan ska du formatera numren som datumformat:
(1.) Välj de femsiffriga siffrorna och högerklicka för att välja Formatera celler från snabbmenyn;
(2.) I poppade ut Formatera celler dialogrutan, klicka Antal fliken och välj Datum från Kategori i rutan och välj sedan ett datumformat du vill ha från höger listruta, se skärmdump:
4. Och sedan har siffrorna formaterats som datumformat som du behöver, och du kan få påskdatum för det angivna året, se skärmdump:
|
tips: För att formatera siffrorna till ditt vanliga datumformat kan du också använda verktyget Tillämpa datumformatering av Kutools för Excel enligt följande skärmdump:
|
Beräkna påskdatum för ett visst år med användardefinierad funktion
Följande Användardefinierad funktion kan också hjälpa dig att beräkna påskdatum för ett visst år.
1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Beräkna påskdatum för angivet år:
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. Spara och stäng sedan den här koden, gå tillbaka till kalkylbladet och ange den här formeln: = easterdate (A2) in i en tom cell bredvid motsvarande data och dra sedan påfyllningshanteringen ner till cellerna som du vill använda denna formel, du får några siffror med fem siffror, se skärmdump:
5. Och sedan bör du ändra siffrorna till datumformat efter behov. Se steg 3 i ovanstående metod för att formatera dem hittills.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
