Easter dates

# The function calc_easters(y) calculates the date of # easters for a given year in the range 1900 - 2099 (both # years included). FUNCTION calc_easter(y) DEFINE y,a,b,c,d,e,f,g SMALLINT LET a = y - 1900 LET b = a mod 19 LET c = (7 * b + 1) / 19 LET d = (11 * b+ 4 - c) mod 29 LET e = a / 4 LET f = (a + e + 31 - d) mod 7 LET g = 25 - d - f IF g > 0 THEN RETURN MDY(4,g,y) ELSE RETURN MDY(3,g+31,y) END IF END FUNCTION -- Snorri Bergmann | Internet: snorri@strengur.is Strengur Consulting Engineers | Bang: ...!uunet!strengur.is!snorri Tryggvagata 26 | Phone: +354 1 624700 101 Reykjavik Iceland | Telefax: +354 1 625785