Función devuelva día del año

[Moparova]

Hola a todos, alguien sabe de laguna función que me devuelva el día del año, es decir hoy 23 de abril 2007, seria mi día 113 del año 2007.

Gracias por la ayuda.

[[Héctor Randolph]]

Hola Moparova

Si tienes una versión reciente de Delphi, prueba con la función DayOfTheYear que se encuentra en la unidad DateUtils.

Saludos

[luisgutierrezb]

Tambien te podria funcionar si tienes delphi 5 o menor que no cuenta con la funcion Dayoftheyear:

Código Delphi [-]
  DiaActual := Trunc(Now) - Trunc(encodeDate(year(now),1,1));