Игры на VB6.0, исходный код, VBA код, функции на VBA, которых нет в стандартном Excel
Блог > Коментарі до замітки

Расчет даты празднования православной пасхи и троицы

Христианская Пасха празднуется весной, но день празднования — не определенная дата, он определяется по лунно-солнечному календарю. Этот день выпадает на период от 7 апреля (22 марта) до 8 мая (25 апреля).Пасха (православная пасхалия) определяется по правилу которое было установлено на Первом Вселенском Соборе (325 г), в городе Никее. По этому правилу Пасха бывает в первое воскресенье после весеннего полнолуния и после иудейской Пасхи. Чтобы вычислить день Пасхи, можно пользоваться пасхалиями — специальными таблицами, которые составляет православная церковь. От сроков Пасхи зависят сроки других праздников, числа которых меняются каждый год. Это переходящие праздники: Вознесение Христа — сороковой день после Пасхи, Троица (Пятидесятница) — пятидесятый день после Пасхи, День Святого Духа — следующий день после Троицы. Можно самостоятельно вычислить сроки Пасхи. Немецкий математик Гаусс в XVIII веке предложил формулу для определения дня Пасхи по григорианскому календарю. Расчет производится по значению математических величин, обозначенных (для простоты) буквами а, б, в, г, д. Каждая буква равняется следующему значению: а — остатку от деления числа года на 19; б — остатку от деления числа года на 4; в — остатку от деления числа года на 7; г — остатку от деления на 30 выражения 19а + 15; д — остатку от деления на 7 выражения 2б + 4в +6г + 6. Найденные значения «г» и «д» используются для окончательного решения задачи. Пасха отмечается после дня весеннего равноденствия и, следовательно, приходится на март или апрель. Если выражение г + д будет меньше числа 9, Пасха этого года будет в марте по старому стилю, а ее день будет равен 22 + г + д. Если же г + д больше 9, Пасха будет апрельской (по старому стилю), а дата ее празднования равна г + д — 9. При расчете не следует забывать, что в 1918 году наша страна перешла на новый календарный стиль, который «обогнал» старый стиль на 13 дней. Следовательно, к рассчитанному числу нужно прибавить 13.

год         дата пасхи                дата троицы
2007 ___ 8 апреля 2007 г.   ___ 27 мая 2007 г.
2008 ___ 27 апреля 2008 г. ___ 15 июня 2008 г.
2009 ___ 19 апреля 2009 г. ___ 7 июня 2009 г.
2010 ___ 4 апреля 2010 г.   ___ 23 мая 2010 г.
2011 ___ 24 апреля 2011 г .___ 12 июня 2011 г.
2012 ___ 15 апреля 2012 г. ___ 3 июня 2012 г.
2013 ___ 5 мая 2013 г.        ___ 23 июня 2013 г.
2014 ___ 20 апреля 2014 г. ___ 8 июня 2014 г.
2015 ___ 12 апреля 2015 г. ___ 31 мая 2015 г.
2016 ___ 1 мая 2016 г.        ___ 19 июня 2016 г.
2017 ___ 16 апреля 2017 г. ___ 4 июня 2017 г.
2018 ___ 8 апреля 2018 г.   ___ 27 мая 2018 г.
2019 ___ 28 апреля 2019 г. ___ 16 июня 2019 г.
2020 ___ 19 апреля 2020 г. ___ 7 июня 2020 г.
2021 ___ 2 мая 2021 г.        ___ 20 июня 2021 г.
2022 ___ 24 апреля 2022 г. ___ 12 июня 2022 г.
2023 ___ 16 апреля 2023 г. ___ 4 июня 2023 г.
2024 ___ 5 мая 2024 г.        ___ 23 июня 2024 г.
2025 ___ 20 апреля 2025 г. ___ 8 июня 2025 г.
2026 ___ 12 апреля 2026 г. ___ 31 мая 2026 г.
2027 ___ 2 мая 2027 г.        ___ 20 июня 2027 г.
2028 ___ 16 апреля 2028 г. ___ 4 июня 2028 г.
2029 ___ 8 апреля 2029 г.   ___ 27 мая 2029 г.
2030 ___ 28 апреля 2030 г. ___ 16 июня 2030 г.
1948 ___ 2 мая 1948 г.        ___ 20 июня 1948 г.

Возвращает день, месяц, год празднования пасхи

Function ДатаПасхи(Год As Integer)
а = Год Mod 19
б = Год Mod 4
в = Год Mod 7
г = (19 * а + 15) Mod 30
Полнолуние = DateSerial(Год, 3, 21) + г
д = (2 * б + 4 * в + 6 * г + 6) Mod 7
If (г + д) <= 10 Then
Месяц = 3 ' март
День = 22 + г + д
Else
Месяц = 4 ' апрель
День = г + д - 9
End If
ДатаПасхи = DateSerial(Год, Месяц, День) + 13
End Function


Возвращает день, месяц, год празднования троицы

Function ДатаТроицы(Год As Integer)
'троица (Пятидесятница) наступает через 50 дней от пасхи
ДатаТроицы = ДатаПасхи(Год) + 49
End Function


скачать пример

середа, 17.02.2010, mospino
//// бесплатный счетчик
iphone 3g Яндекс.Метрика
Праздники Украины