pre programme it

or

datetodayinyear = 3055*(x%monthx+2)/100 &

- (x%monthx+10)/13*2 - 91 + &

(1-(modulo(x%yearx,4)+3)/4 &

+ (modulo(x%yearx,100)+99)/100 &

- (modulo(x%yearx, &

400)+399)/400)*(x%monthx+10)/13 + x%day

as an example

do it for 20 years ahead and i doubt anyone will even notice.