Sintaxis de esta Función

[andres1569]

Hola:

Lo que dice madman es que mirando la ayuda de Delphi, está bastante bien explicado; DateTimeToTimeStamp convierte una fecha a un tipo TTimeStamp, que es un registro donde la parte Date indica los días desde el 1 de enero del año 1, y la parte Time los milisegundos desde las 12 de medianoche.

No sé si existe la función que buscas pero esta te puede servir:

function DayOfYear (ADate: TDateTime) : Word;
var
d, m, y : Word;
begin
DecodeDate (ADate, y, m, d);
result := DateTimeToTimeStamp(ADate).Date -
DateTimeToTimeStamp(EncodeDate(y - 1, 12, 31)).Date));
end;

Hallamos la resta de días entre la fecha de hoy y el último día del año pasado

Hasta luego