Как рассчитать дату Пасхи в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек