[Remind-Fans] compute the greek easter date

[Inter Navtis]

Hello,

the lines to compute the greek easter date that were sended over this list in April [1] worked for
me only for some years, because the used formular was simplified. I tried to write my own lines
using the complete formular. I want to share the result:

SET gauss_a year(today())%19
SET gauss_b abs(year(today())/4)
SET gauss_d ((19*gauss_a)+15)%30
SET gauss_r abs((gauss_d+abs(gauss_a/11))/29)
SET gauss_og 21+gauss_d-gauss_r
SET gauss_szh (year(today())+gauss_b)%7
SET gauss_sz 7-gauss_szh
SET gauss_oeh (gauss_og-gauss_sz)%7
SET gauss_oe 7-gauss_oeh

SET gauss_dif abs(year(today())/100)-abs(year(today())/400)-2

SET gauss_os gauss_og+gauss_oe+gauss_dif

IF gauss_os <= 31
    SET pasxa date(year(today()),03,gauss_os)
ELSE
    IF gauss_os <= 61
	SET pasxa date(year(today()),04,gauss_os-31)
    ELSE
        SET pasxa date(year(today()),05,gauss_os-61)
    ENDIF
ENDIF

REM [TRIGGER(pasxa)] MSG greek easter


It hope that it returns the correct easterdate for all future years.

Have fun!


1. mail with subject: "[Remind-Fans] orthodox easter (pascha) calculation. tested and working"
sended on Fri Apr 10 10:15:53 EDT 2015