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