~ Convert Julian day to Gregorian date.

0 &FIX

"Enter Julian day:  " ? 0.5 + j:

j. &INT z:
j. &FRAC f:

z. 2299161 <
   [
      z. a:
   |
      z. 1867216.25 - 36524.25 / &INT L:
      z. 1 + L. + L. 4 / &INT - a:
   ]

a. 1524 + b:
b. 122.1 - 365.25 / &INT c:
c. 365.25 * &INT d:
b. d. - 30.6001 / &INT e:

b. d. - e. 30.6001 * &INT - f. + x:

e. 14 <
   [
      e. 1 - m:
   |
      e. 13 - m:
   ]

m. 2 >
   [
      c. 4716 - y:
   |
      c. 4715 - y:
   ]

"Date is " m. ! "/" x. ! "/" y. !

$