History of Easter Calculator
Webb - all rights reserved - ©2004
spacer


modified by Jay Parker on  2004-04-30 01:09:46

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

;