udfDayOfYear
int udfDayOfYear (str)
;------------------------------------------------------------------------------------------------------------------------------------------
#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