REM  *****  BASIC  *****
REM Алгоритм Гаусса вычисления даты Пасхи (православ.)
REM Источник: Википедия
REM ************************************************
Function EasterDayPravoslav(Year) 
a = Year Mod 19
b = Year Mod 4
c = Year Mod 7
k = int (Year/100)
p = int ((13 + 8 * k)/25)
q = int (k/4)
M = 15
N = 6
d = (19 * a + M) mod 30
e = (2 * b + 4 * c + 6 * d + N) mod 7
If (d + e) <= 9 Then
Mo = 3 ' март
Da = 22 + d + e
Else
Mo = 4 ' апрель
Da = d + e - 9
End If
EasterDayPravoslav = DateSerial(Year, Mo, Da) + 13
End Function