Hvordan beregnes påskedato i Excel?
Som vi alle vidste, er påskeferien altid den første søndag, som efter den første kirkelige fuldmåne, der finder sted den 21. marts eller derefter, så påskedato for hvert år kan være en anden dato som vist på nedenstående skærmbillede. For at få den specifikke påskedato for et givet år kan denne artikel gøre dig en tjeneste.
Beregn påskedato for det givne år med formlen
Beregn påskedato for det givne år med brugerdefineret funktion
Beregn påskedato for det givne år med formlen
For at få påskedatoen for det givne år kan følgende formel hjælpe dig, gør som følger:
1. Indtast denne formel: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 ind i en tom celle ved siden af dit givne år, B2se f.eks. skærmbillede:
2. Træk derefter fyldhåndtaget ned til de celler, som du vil beregne påskedatoen for den givne dato, og femcifrede tal vises i cellerne, se skærmbillede:
3. Og så skal du formatere numrene som datoformat:
(1.) Vælg de 5-cifrede tal, og højreklik for at vælge formater celler fra genvejsmenuen;
(2.) I poppet ud formater celler dialogboksen, klik nummer Fanebladet, og vælg Dato fra Boligtype rude, og vælg derefter et datoformat, du kan lide fra højre listeboks, se skærmbillede:
4. Og så er tallene formateret som det datoformat, som du har brug for, og du kan få påskedato for det givne år, se skærmbillede:
Tips: For at formatere numrene til dit normale brugte datoformat kan du også bruge Anvend datoformateringsværktøjet til Kutools til Excel som følgende skærmbillede vist: |
Beregn påskedato for det givne år med brugerdefineret funktion
Følgende Brugerdefineret funktion kan også hjælpe dig med at beregne påskedato for et bestemt år.
1. Hold nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Beregn påskedato for det givne å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 Function
3. Gem derefter og luk denne kode, gå tilbage til regnearket og indtast denne formel: = easterdate (A2) ind i en tom celle ved siden af dine tilsvarende data, og træk derefter fyldhåndtaget ned til de celler, som du vil anvende denne formel, får du nogle fem-cifrede tal, se skærmbillede:
5. Og så skal du ændre numrene til datoformat, som du har brug for. Se trin 3 i ovenstående metode for at formatere dem til dato.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!