Модуль: SysUtils

type TDateTime = type Double;

type TTimeStamp = record
   Time: Integer;     // Число миллисекунд прошедших с полуночи
   Date: Integer;     // Количество дней прошедших с 1 января 0001г
   end;

Описание
Функция преобразовывает значение даты и времени формата TDateTime в соответствующее значение типа TTimeStamp. Значение типа TDateTime представляет собой количество дней (включая неполные дни) прошедшее с 12:00 30 декабря 1899. Значение типа TTimeStamp представляет собой запись, состоящую из полей даты и времени.

Пример
var
   T: TTimeStamp;
begin
   T:= DateTimeToTimeStamp(Time);
   MessageDlg( 'До конца суток осталось '+ FloatToStr(86400-T.Time/1000)+' секунд', mtInformation, [mbOk], 0);
end;