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
|