%%HP: T(3)A(D)F(.);
\<< # 8192d / B\->R 3600 / 24 / DUP FP 24 * \->HMS 
SWAP IP 365.242198781 / DUP IP 1 - 1000000 / 31.12 + 
SWAP FP 365.242198781 * .5 + IP DATE+ SWAP 6 FIX
\>>