CoWeb

find:
goto:
home

history
links from
printable

login
















Easter Calculator
Webb - all rights reserved - ©2004
spacer
Author - Jay Parker
Email: jbp@pobox.com
Webpage:

Summary: Calculate date of Easter in a given year

Instructions: Enter a four-digit year on the stack and choose "calculate".  The date of Easter in that year is returned in YYYYMMDD format.

The formulae for this calculation are taken from the Calendar FAQ at http://www.tondering.dk/claus/cal/node3.html#SECTION003127000000000000000

Code:

RPN.2.h
"Easter"
"Calculate: help"
V \store yr

v #'19' % Xa \G

v #'100'  /w Xb \C

xb  xb 4 /w n xb 8 * #'13' + #'25' /w n #'19' xa * #'15' ++++ #'30' % Xc \H

xc xc #'28' /w 1 xc #'28' /w #'29' xc 1 + /w #'21' xa - #'11' /w **-*- Xd \I

v v 4 /w xd 2 xb n xb 4 /w +++++ 7 % Xe \J

xd xe - Xf \L

3 xf #'40' + #'44' /w + Xg \month

xf #'28' + #'31' xg 4 /w * - Xh \day

v #'10000' * xg #'100' * xh ++ \display YYYYMMDD

;



0.0132 secs

top of page

Webb - all rights reserved - ©2004
powered by Spinneret 0.10