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.