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

Як розрахувати дату Великодня в Excel?

doc обчислити дату Великодня 1

Як ми всі знаємо, свято Великодня - це завжди перша неділя, яка після першого церковного повного місяця, що настає 21 березня або після нього, тому дата Великодня кожного року може бути іншою датою, як показано на наступному знімку екрана. Щоб отримати конкретну дату Великодня даного року, ця стаття може зробити вам послугу.

Обчисліть дату Великодня даного року за формулою

Обчисліть дату Великодня даного року за допомогою функції, визначеної користувачем


стрілка синя права міхур Обчисліть дату Великодня даного року за формулою

Щоб отримати дату Великодня даного року, вам може допомогти наступна формула, будь ласка, зробіть наступне:

1. Введіть цю формулу: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 в порожню клітинку поруч із даним роком, B2, наприклад, див. скріншот:

doc обчислити дату Великодня 2

2. Потім перетягніть маркер заповнення до клітинок, для яких потрібно обчислити дату Великодня даної дати, і в комірках відображаються п’ятизначні числа, див. Знімок екрана:

doc обчислити дату Великодня 3

3. І тоді вам слід відформатувати цифри як формат дати:

(1.) Виберіть 5-значні числа та клацніть правою кнопкою миші, щоб вибрати Формат ячеек з контекстного меню;

(2.) У вискочив Формат ячеек діалогове вікно натисніть кнопку Номер Вкладка і виберіть Дата від Категорія панелі, а потім виберіть потрібний формат дати у правому списку, див. знімок екрана:

doc обчислити дату Великодня 4

4. А потім, цифри були відформатовані як формат дати, як вам потрібно, і ви можете отримати дату Великодня даного року, див. Скріншот:

doc обчислити дату Великодня 5

чайові: Щоб відформатувати цифри до звичайного використовуваного формату дати, ви також можете скористатися утилітою «Застосувати форматування дати» Kutools для Excel, як показано нижче

doc обчислити дату Великодня 6


стрілка синя права міхур Обчисліть дату Великодня даного року за допомогою функції, визначеної користувачем

Наступні Визначена користувачем функція також може допомогти вам розрахувати дату Великодня конкретного року.

1. Утримуйте клавішу ALT + F11 клавіші, потім відкриється Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Обчисліть дату Великодня даного року:

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. Потім збережіть і закрийте цей код, поверніться до робочого аркуша та введіть цю формулу: = Великдень (A2) у порожню комірку поруч із відповідними даними, а потім перетягніть маркер заповнення вниз до комірок, до яких ви хочете застосувати цю формулу, ви отримаєте п’ятизначні цифри, див. знімок екрана:

doc обчислити дату Великодня 7

5. І тоді вам слід змінити цифри на формат дати, як вам потрібно. Будь ласка, перегляньте крок 3 вищевказаного методу, щоб відформатувати їх на сьогоднішній день.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (11)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я переклав вашу формулу для голландського Excel так (рік у форматі A81):
=AFRONDEN.BENEDEN(DATUM(A81;5;DAG(MINUUT(A81/38)/2+56));7)-34

Формула дає 2079-04-16 на Великдень 2079. Це має бути 2079-04-23. Решта 21 століття виглядає нормально!
Цей коментар був мінімізований модератором на сайті
Так, у мене виникли проблеми з варіантами цієї формули. Перевірте 2011, 2038, 2052 та 2079, усі на 7 днів раніше.
Цей коментар був мінімізований модератором на сайті
Також 2108 дає 2108-31 березня, має бути 2108 квітня-1.
Цей коментар був мінімізований модератором на сайті
А як щодо православного Великодня? Чи є для цього також код?
Цей коментар був мінімізований модератором на сайті
Чи існує подібна формула Excel для визначення китайського Нового року, оскільки це також свято за місячним календарем?
Цей коментар був мінімізований модератором на сайті
Він працює на таблицях Google. Це дуже довго, але працює без помилок і для проблемних років (те, що ви згадали тут). Ви можете скопіювати в клітинку, і в клітинці K1 очікується рік, наприклад 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))

Цей коментар був мінімізований модератором на сайті
Привіт, Тамі, дякую за вашу участь. Ця формула працює без помилок на таблицях Google. Дякую! З повагою, Менді
Цей коментар був мінімізований модератором на сайті
Він працює на таблицях Google. Це дуже довго, але працює без помилок і для проблемних років (те, що ви згадали тут). Ви можете скопіювати в клітинку, і в клітинці K1 очікується рік, наприклад 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))
Цей коментар був мінімізований модератором на сайті
Привіт, hztamas,
Дякую за вашу частку. Ця формула працює без помилок на таблицях Google. Спасибі!
З повагою,
Менді
Цей коментар був мінімізований модератором на сайті
Версія Excel, більш проста, вам потрібно лише змінити L3 на початку на клітинку, в яку ви введете рік (наприклад, 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)))
Цей коментар був мінімізований модератором на сайті
Привіт, hztamas, велике спасибі за вашу участь. Я змінив ";" до "," у вашій формулі, щоб вона могла працювати в Excel. У мене є дані (наприклад, 2013) у клітинці 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,TRUE,22+D+E),IF(H<=31,DATE(Y,3,H),DATE(Y,4,H-31))) Ця формула працює, але я думаю, що вона не набагато простіше формули в статті. У всякому разі, я думаю, що вони обидва чудові. Ще раз дякую! З повагою, Менді
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця