Jak vypočítat velikonoční datum v aplikaci Excel?
Jak všichni víme, velikonoční svátek je vždy první neděle, která po prvním církevním úplňku, který nastane 21. března nebo později, takže velikonoční datum každého roku může být jiné datum, jak ukazuje následující snímek obrazovky. Chcete-li získat konkrétní velikonoční datum daného roku, může vám tento článek poskytnout laskavost.
Vypočítejte velikonoční datum daného roku pomocí vzorce
Vypočítejte velikonoční datum daného roku pomocí funkce definované uživatelem
Vypočítejte velikonoční datum daného roku pomocí vzorce
Chcete-li získat velikonoční datum daného roku, může vám pomoci následující vzorec, postupujte takto:
1. Zadejte tento vzorec: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 do prázdné buňky vedle daného roku, B2například viz screenshot:
2. Poté přetáhněte popisovač výplně dolů do buněk, které chcete vypočítat velikonoční datum daného data, a v buňkách se zobrazí pětimístná čísla, viz screenshot:
3. A pak byste měli formátovat jeho čísla jako formát data:
(1.) Vyberte pětimístná čísla a vyberte je kliknutím pravým tlačítkem Formát buněk z kontextového menu;
(2.) Ve vyskakovacím okně Formát buněk , klepněte na tlačítko OK Číslo Záložka a zvolte Datum z Kategorie v podokně a poté v pravém seznamu vyberte jeden formát data, který se vám líbí, viz screenshot:
4. A pak byla čísla naformátována jako formát data, jak potřebujete, a můžete získat velikonoční datum daného roku, viz screenshot:
|
Tipy: Chcete-li formátovat čísla do normálního použitého formátu data, můžete také použít nástroj Použít formátování data Kutools pro Excel jako následující snímek obrazovky:
|
Vypočítejte velikonoční datum daného roku pomocí funkce definované uživatelem
Následující Uživatelem definovaná funkce také vám pomůže vypočítat velikonoční datum konkrétního roku.
1. Podržte ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Vypočítejte velikonoční datum daného roku:
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. Poté tento kód uložte a zavřete, vraťte se do listu a zadejte tento vzorec: = velikonoční den (A2) do prázdné buňky vedle odpovídajících dat a potom přetáhněte popisovač výplně dolů do buněk, které chcete použít tento vzorec, dostanete několik pětimístných čísel, viz screenshot:
5. A pak byste měli podle potřeby změnit čísla na formát data. Chcete-li je naformátovat k dnešnímu dni, přečtěte si krok 3 výše uvedené metody.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
