PARM jd, rtnvar=""

# Formats jd to mm/dd/yyyy.
#
# If "rtnvar" is passed the string is returned in this var,
# else it is written to $stdlist.
# 
# Larry Simonsen - Flowserve Corporation
#
# These are most useful for a format date which is an offset
# from today's date of n days.
#
# As in:
# !mpejd todayjd
# !fmtjd (todayjd-7) fjdcut
# !showvar
# !SPOOLF O@;SELEQ=[dev=dlp AND DATE < !fjdcut];SHOW;delete

setvar _jdyt (!jd * 4 - 489) / 1461
setvar _jdmt  !jd - !_jdyt *1461/4
setvar _jdm  (10 * !_jdmt -1) / 306 -1
setvar _jdy  !_jdyt + 1972
setvar _jdd  !_jdmt - ( !_jdm + 1) * 153/5
if !_jdm > 12 then
   setvar !_jdm !_jdm - 12
   setvar !_jdy = !_jdy +1
endif
if "!rtnvar" = "" then
   echo Jd for !jd is: !_jdm/!_jdd/!_jdy
else
   setvar !rtnvar "!_jdm/!_jdd/!_jdy"
endif
deletevar _jdyt
deletevar _jdmt
deletevar _jdm
deletevar _jdy
deletevar _jdd