Note: The other languages of the website are Google-translated. Back to English

Jak vypočítat velikonoční datum v aplikaci Excel?

doc spočítat velikonoční datum 1

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


šipka modrá pravá bublina 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:

doc spočítat velikonoční datum 2

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:

doc spočítat velikonoční datum 3

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:

doc spočítat velikonoční datum 4

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:

doc spočítat velikonoční datum 5

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:

doc spočítat velikonoční datum 6


šipka modrá pravá bublina 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 Function

3. 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:

doc spočítat velikonoční datum 7

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Přeložil jsem váš vzorec pro holandský Excel takto (rok v A81):
=AFRONDEN.BENEDEN(DATUM(A81;5;DAG(MINUUT(A81/38)/2+56));7)-34

Vzorec dává 2079-04-16 pro Velikonoce 2079. To by mělo být 2079-04-23. Zbytek 21. století vypadá dobře!
Tento komentář byl moderátorem webu minimalizován
Ano, měl jsem nějaké problémy s variacemi tohoto vzorce. Zkontrolujte 2011, 2038, 2052 a 2079, vše o 7 dní dříve.
Tento komentář byl moderátorem webu minimalizován
Také 2108 dává 2108-Mar-31, mělo by být 2108-duben-1.
Tento komentář byl moderátorem webu minimalizován
A co pravoslavné Velikonoce? Existuje na to také kód?
Tento komentář byl moderátorem webu minimalizován
Existuje podobný vzorec aplikace Excel pro určení čínského nového roku, protože je to také svátek s lunárním kalendářem?
Tento komentář byl moderátorem webu minimalizován
Funguje na google listech. Je to velmi dlouhé, ale funguje bez chyby i pro problematické roky (co jste zde zmínil). Můžete zkopírovat do buňky a v buňce K1 se očekává rok, například 2022
=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))

Tento komentář byl moderátorem webu minimalizován
Ahoj Tami, děkujeme za sdílení. Tento vzorec funguje bez chyby na google listech. Díky! S pozdravem, Mandy
Tento komentář byl moderátorem webu minimalizován
Funguje na google listech. Je to velmi dlouhé, ale funguje bez chyby i pro problematické roky (co jste zde zmínil). Můžete zkopírovat do buňky a v buňce K1 se očekává rok, například 2022

=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))
Tento komentář byl moderátorem webu minimalizován
Ahoj hztamas,
Děkujeme za vaše sdílení. Tento vzorec funguje bez chyby na google listech. Dík!
S pozdravem,
Mandy
Tento komentář byl moderátorem webu minimalizován
Verze Excelu, jednodušší, stačí změnit L3 na začátku na buňku, kam vložíte rok (jako 2022). 
=LET(Y;L3;A;MOD(Y;19);B;MOD(Y;4);C;MOD(Y;7);D;MOD(19*A+24;30);E;MOD(2*B+4*C+6*D+5;7);H;IFS(AND(E=6;D=29);50;AND(E=6;D=28;A>10);49;TRUE;22+D+E);IF(H<=31;DATE(Y;3;H);DATE(Y;4;H-31)))
Tento komentář byl moderátorem webu minimalizován
Ahoj hztamas, mnohokrát děkuji za sdílení. Změnil jsem ";" na "," ve vašem vzorci, aby mohl fungovat v Excelu. Mám data (jako 2013) v buňce A1.=LET(Y,A1,A,MOD(Y,19),B,MOD(Y,4),C,MOD(Y,7),D,MOD(19 *A+24,30),E,MOD(2*B+4*C+6*D+5,7),H,IFS(AND(E=6,D=29),50,AND(E= 6,D=28,A>10),49,PRAVDA,22+D+E),IF(H<=31,DATUM(Y,3,H),DATUM(Y,4,H-31))) Tento vzorec funguje, ale myslím, že není o tolik jednodušší než vzorec v článku. Každopádně si myslím, že jsou oba skvělí. Ještě jednou díky! S pozdravem Mandy
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění