PARM rtnvar=""
# Converts "today" to the day of the year. Handles leap years. If "rtnvar" is
# passed the DOY is returned in this var, else it is  written to $stdlist.
setvar _doy hpdate + &
       ![WORD("0 31 59 90 120 151 181 212 243 273 304 334",,hpmonth)]
if hpyyyy mod 4 = 0 and (hpyyyy mod 100 <> 0 or hpyyyy mod 400 = 0) and &
   hpmonth >= 3 then
   setvar _doy _doy + 1
endif
if "!rtnvar" = "" then
   echo Day of Year for !hpdatef is: !_doy
else
   setvar !rtnvar _doy
endif
deletevar _doy