Número de día del año

Rutina para obtener el número de día del año de una fecha.

*-- Ejemplo de uso:
? DoY()                 && Hoy
? DoY(DATE(2005,2,5))   && 5 de Febrero
? DoY(DATE(2004,12,31)) && Año bisiesto

*------------------------------------------------
* FUNCTION DoY(tdFecha)
*------------------------------------------------
* Retorna el número de día del año.
* (Número de días a partir del 1° de Enero)
*------------------------------------------------
FUNCTION DoY(tdFecha)
  IF EMPTY(tdFecha)
    tdFecha = DATE()
  ENDIF
  RETURN tdFecha - DATE(YEAR(tdFecha),1,1) + 1
ENDFUNC
*------------------------------------------------

Luis María Guayán