PARM T_PARM=" "

# TODAYS.XEQ - DISPLAYS THE DAY OF THE YEAR FOR THE DATE GIVEN
# T_PARM MUST BE A DATE IN YYYYMMDD FORM.
# TIM ERICSON  07/16/1998

IF "!T_PARM" <> " "
  SETVAR T_DATE, !T_PARM
ELSE
  SETVAR T_DATE, &
    !HPYYYY![RHT("0"+"!HPMONTH",2)]![RHT("0"+"!HPDATE",2)]
ENDIF

DAYS !T_DATE
SETVAR THIS_YEAR_DAYS, RETURN_DAYS

SETVAR T_YEAR, STR ( "!T_DATE", 1, 4 )
SETVAR T_YEAR, !T_YEAR - 1
DAYS !"T_YEAR"1231
SETVAR LAST_YEAR_DAYS, RETURN_DAYS

ECHO
ECHO ![ STR ( "!T_DATE", 5, 2 ) ]/![ STR ( "!T_DATE", 7, 2 ) ]/&
![ STR ( "!T_DATE", 1, 4 ) ] IS THE &
![THIS_YEAR_DAYS - LAST_YEAR_DAYS] DAY OF THE YEAR.
ECHO

DELETEVAR THIS_YEAR_DAYS, LAST_YEAR_DAYS, RETURN_DAYS, T_@