Как рассчитать дату Пасхи в Excel?
Как всем известно, пасхальный праздник всегда приходится на первое воскресенье после первого церковного полнолуния, которое происходит 21 марта или после этой даты. Поэтому дата Пасхи может быть разной каждый год, как показано на следующем скриншоте. Чтобы узнать конкретную дату Пасхи для определенного года, эта статья может вам помочь.
Рассчитать дату Пасхи для заданного года с помощью формулы
Рассчитать дату Пасхи для заданного года с помощью пользовательской функции
Рассчитать дату Пасхи для заданного года с помощью формулы
Чтобы получить дату Пасхи для заданного года, следующая формула может вам помочь, выполните следующие действия:
1. Введите эту формулу: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 в пустую ячейку рядом с вашим указанным годом, например, B2, см. скриншот:
2. Затем перетащите маркер заполнения вниз до ячеек, для которых вы хотите рассчитать дату Пасхи, и в ячейках отобразятся пятизначные числа, см. скриншот:
3. После этого вам нужно отформатировать числа в формат даты:
(1.) Выберите пятизначные числа, щелкните правой кнопкой мыши и выберите Формат ячеек из контекстного меню;
(2.) В открывшемся диалоговом окне Формат ячеек нажмите вкладку Число, выберите Дата в панели Категория, затем выберите желаемый формат даты из списка справа, см. скриншот:
4. После этого числа будут отформатированы в нужный вам формат даты, и вы сможете получить дату Пасхи для указанного года, см. скриншот:
Советы: Чтобы отформатировать числа в привычный для вас формат даты, вы также можете использовать инструмент Применить формат даты Kutools для Excel, как показано на следующем скриншоте:
|
Рассчитать дату Пасхи для заданного года с помощью пользовательской функции
Следующая пользовательская функция также может помочь вам рассчитать дату Пасхи для определенного года.
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 Function3. Затем сохраните и закройте этот код, вернитесь на лист и введите эту формулу: =easterdate(A2) в пустую ячейку рядом с вашими данными, затем перетащите маркер заполнения вниз до ячеек, к которым вы хотите применить эту формулу, и вы получите некоторые пятизначные числа, см. скриншот:
5. После этого вам следует изменить числа в нужный формат даты. Пожалуйста, просмотрите шаг 3 вышеописанного метода, чтобы отформатировать их в дату.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек