~ Convert Gregorian date to Julian day.

4 &fix

"Enter year:  " ? y:
"Enter month: " ? m:
"Enter day:   " ? d:

m. 3 <
   [
   y. 1- y:
   m. 12 + m:
   ]

y. 100 / &INT a:
2 a. - a. 4 / &INT + b:
y. 4716 + 365.25 * &INT
m. 1+ 30.6001 * &INT +
d. + b. + 1524.5 -

"!JD = " !
$