;------------------------------------------------------------------------------------------------------------------------------------------ #DefineFunction udfDayOfYear (strYmdHms) Return 1 + TimeDiffDays (strYmdHms, ItemExtract (1, strYmdHms, ":") : ":1:1") ; The return value is an integer number in the range 1..366. #EndFunction ;------------------------------------------------------------------------------------------------------------------------------------------ ; Test. ; Day of year. intDoy1 = udfDayOfYear ("2008:12:31") ; 366 intDoy2 = udfDayOfYear ("2009:01:01") ; 1 intDoy3 = udfDayOfYear (TimeYmdHms()) ; ? Exit