Forums: » Register « |  Free Tools |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support |

New Free Tools on Dev Shed!

#1
January 27th, 2004, 06:30 PM
 contor
Junior Member

Join Date: Jan 2004
Posts: 1
Time spent in forums: < 1 sec
Reputation Power: 0
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.

 Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > Guass formulae