Функции и процедуры Delphi. Справочник.

IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

4. Функции и процедуры для работы с датой и временем

Функция DateTimeToTimeStamp(
DateTime: TDateTime ): TTimeStamp;

Модуль: SysUtils

type TDateTime = type Double;

type TTimeStamp = record
  Time: Integer;     // Число миллисекунд прошедших с полуночи
  Date: Integer;     // Количество дней прошедших с 1.01.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;

[Вернуться к содержанию]