Calculate Easter

Phoenix185

I want to calculate Easter but I don't have any idea how one could make it!

has anyone allready done it?

Luc_VanDyck

Because it's almost Christmas, I give you the code to calculate Easter O:)

fctCalculateEasterDate(pintYear : Integer) : Date

x := pintYear;
a := x MOD 19;
b := x DIV 100;
c := x MOD 100;
d := b DIV 4;
e := b MOD 4;
f := (b + 8) DIV 25;
g := (b - f + 1) DIV 3;
h := (19 * a + b - d - g + 15) MOD 30;
i := c DIV 4;
k := c MOD 4;
l := (32 + 2 * e + 2 * i - h - k) MOD 7;
m := (a + 11 * h + 22 * l) DIV 451;

n := (h + l - 7 * m + 114) DIV 31;
p := (h + l - 7 * m + 114) MOD 31;

EXIT(DMY2DATE(p + 1,n,pintYear));

All vars (x, a, b, etc. are of type Integer).

RobertMo

I have always questioned myself, how people know when it's Easter? The answer is obvious...

Luc_VanDyck

Indeed ... now you can throw away your pocket agenda ;-)

DenSter

Are you sure it's not April 1st? :-k

Phoenix185

it works!

thx

merry x-mas