January 27th, 2004, 06:30 PM

Guass formulae
Hi i was wondering if any of you could work out how to do this question in delphi.
Gauss developed a formula for calculating the date on which Easter Sunday will fall. His formula is
K = year DIV 100
A = year MOD 19
B = year MOD 4
C = year MOD 7
Q = K DIV 4
P = (13 + 8K) DIV 25
M = (15P + K + Q) MOD 30
D = (19A + M) MOD 30
N = (4 + K Q) MOD 7
E = (2B + 4C + 6D + N) MOD 7
Now, if D + E is <= 9 then the day = 22 + D + E and the month = 3 else if D = 29 and E = 6 then the day = 19 and the month = 4 else if D = 28 and E = 6 and A > 10 then the day = 18 and the month = 4 else the day = D + E 9 and the month = 4. Does his formula work? To test this Easter 1999 is 4th April and Easter 2000 is 23rd April.