Перейти к содержимому

Как рассчитать дату Пасхи в Excel?

Author: Xiaoyang Last Modified: 2025-08-07
calculate Easter date

Как всем известно, пасхальный праздник всегда приходится на первое воскресенье после первого церковного полнолуния, которое происходит 21 марта или после этой даты. Поэтому дата Пасхи может быть разной каждый год, как показано на следующем скриншоте. Чтобы узнать конкретную дату Пасхи для определенного года, эта статья может вам помочь.

Рассчитать дату Пасхи для заданного года с помощью формулы

Рассчитать дату Пасхи для заданного года с помощью пользовательской функции


arrow blue right bubble Рассчитать дату Пасхи для заданного года с помощью формулы

Чтобы получить дату Пасхи для заданного года, следующая формула может вам помочь, выполните следующие действия:

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

use a formula to calculate Easter date

2. Затем перетащите маркер заполнения вниз до ячеек, для которых вы хотите рассчитать дату Пасхи, и в ячейках отобразятся пятизначные числа, см. скриншот:

drag and fill the formula to other cells

3. После этого вам нужно отформатировать числа в формат даты:

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

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

set date format in Format Cells dialog box

4. После этого числа будут отформатированы в нужный вам формат даты, и вы сможете получить дату Пасхи для указанного года, см. скриншот:

the numbers are formatted as the date format

Советы: Чтобы отформатировать числа в привычный для вас формат даты, вы также можете использовать инструмент Применить формат даты Kutools для Excel, как показано на следующем скриншоте:

format numbers to any date format by kutools


arrow blue right bubble Рассчитать дату Пасхи для заданного года с помощью пользовательской функции

Следующая пользовательская функция также может помочь вам рассчитать дату Пасхи для определенного года.

1. Нажмите и удерживайте клавиши ALT + F11, затем откроется окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.

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. Затем сохраните и закройте этот код, вернитесь на лист и введите эту формулу: =easterdate(A2) в пустую ячейку рядом с вашими данными, затем перетащите маркер заполнения вниз до ячеек, к которым вы хотите применить эту формулу, и вы получите некоторые пятизначные числа, см. скриншот:

use a user defined function to calculate easter date

5. После этого вам следует изменить числа в нужный формат даты. Пожалуйста, просмотрите шаг 3 вышеописанного метода, чтобы отформатировать их в дату.

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Переворот в анализе данных на основе: Интеллектуальное выполнение   |  Сгенерировать код  |  Создать Пользовательские Формулы  |  Анализ данных и генерация диаграмм  |  Вызов Kutools Functions
Популярные функции: Найти, выделить или отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячейки без потери данных   |   Округлить...
Супер ПОИСК: VLookup с несколькими критериями    VLookup с несколькими значениями  |   Многолистовой поиск   |   Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскр. список   |  Зависимый раскрывающийся список   |  Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки   |  Дизайн листа   |   Улучшенная строка формулы    Управление книгой и листами   |  Библиотека автотекста (Auto Text)   |  Выбор даты   |  Объединить данные   |  Шифрование/Расшифровка ячеек    Отправить письмо по списку   |  Супер фильтр   |   Специальный фильтр (фильтр по жирному/курсиву/зачеркиванию...) ...
Топ–15 наборов инструментов: 12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...)   |   50+ типов диаграмм (Диаграмма Ганта, ...)   |   40+ практических формул (Расчет возраста на основе даты рождения, ...)   |   19 инструментов вставки (Вставить QR-код, Вставить изображение из пути, ...)   |  12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...)   |  7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...)   |   ... и многое другое
Используйте Kutools на вашем предпочитаемом языке – поддерживаются английский, испанский, немецкий, французский, китайский и более40 других языков!

Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени.  Щелкните здесь, чтобы получить наиболее нужную вам функцию...


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!