Easter formula: (Last update: 12.02.2007)

dDate = easter_compute(2001) && change to according year!


********************************************************** easter_compute
func easter_compute
param pnYear
cYear = str(pnYear,4)
a0=int(((((pnYear/19)-(int(pnYear/19)))*19)*100+0.5)/100)
b0=int(((((pnYear/4)-(int(pnYear/4)))*4)*100+0.5)/100)
c0=int(((((pnYear/7)-(int(pnYear/7)))*7)*100+0.5)/100)
d0=int(((((((19*a0)+24)/30)-(int(((19*a0)+24)/30)))*30)*100+0.5)/100)
f0=((2*b0)+(4*c0)+(6*d0)+5)/7
e0=int(((((f0)-(int(f0)))*7)*100+0.5)/100)
ma = 22 + d0 + e0
ap = d0 + e0 - 9
if ap = 26
retu dtoc(cYear+"/04/19")
endi
if ap = 25
if d0 = 28
if a0 > 10
retu dtoc(cYear+"/04/18")
endi
endi
endi
if ma > 31
retu dtoc(cYear+"/04/"+ltrim(str(ap)))
endi
retu dtoc(cYear+"/03/"+ltrim(str(ma)))

page "programming"

starting page

(www.zelczak.com/easter.htm)