Function ПАСХА(Optional ГОД As Integer) As Date
     '---------------------------------------------------------------------------------------
     ' Procedure    : ПАСХА
     ' Author       : KuklP
     ' Topic_HEADER : Определение даты Пасхи
     ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=14758
     ' Post_Author  : KuklP
     ' Post_URL     : http://www.planetaexcel.ru/docs/forum_upload/post_112532.xls
     ' DateTime     : 29.03.2010, 17:37
     ' Notes 1      : По умолчанию - текущий год
     ' Notes 2      : Формат ячейки-результата должен быть ДАТА
     '---------------------------------------------------------------------------------------
     Dim A As Long, b As Long, c As Long, d As Long, e As Long, z As Long
     Dim МЕСЯЦ As Integer, ДЕНЬ As Integer
     If ГОД = 0 Then ГОД = Year(Date)
     A = ГОД Mod 19: b = ГОД Mod 4: c = ГОД Mod 7
     d = (19 * A + 15) Mod 30
     e = (2 * b + 4 * c + 6 * d + 6) Mod 7
     z = d + e
     МЕСЯЦ = (z + 25) / 35 + 3
     ДЕНЬ = z + 22 - 31 * (МЕСЯЦ / 4)
     ПАСХА = DateSerial(ГОД, МЕСЯЦ, ДЕНЬ) + 13
End Function

Function ТРОИЦА(Optional ГОД As Integer) As Date
     '---------------------------------------------------------------------------------------
     ' Procedure    : ТРОИЦА
     ' Author       : KuklP
     ' Topic_HEADER : Определение даты Троицы
     ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=14758
     ' Post_Author  : KuklP
     ' Post_URL     : http://www.planetaexcel.ru/docs/forum_upload/post_112532.xls
     ' DateTime     : 29.03.2010, 17:37
     ' Notes 1      : По умолчанию - текущий год
     ' Notes 2      : Формат ячейки-результата должен быть ДАТА
     '---------------------------------------------------------------------------------------
     ТРОИЦА = ПАСХА(ГОД) + 49
End Function