PARM rtnvar=""

# Converts "today" to an "Ask" Julian date.  Handles leap years.
# If "rtnvar" is passed the Julian date is returned in this var,
# else it is written to $stdlist.
#
# Uses the Julian script from HP's jazz site.
#
# 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

julian _yearjd
setvar _jd ( (hpyyyy-1973) * 1461) /4 + _yearjd + 428
if "!rtnvar" = "" then
   echo Jd for !hpdatef is: !_jd
else
   setvar !rtnvar _jd
endif
deletevar _jd