Delphi. Функция MSecsToTimeStamp( MSecs: Comp ): TTimeStamp;

Функция MSecsToTimeStamp( MSecs: Comp ): TTimeStamp;

Модуль: SysUtils

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

Описание
Функция преобразовывает значение времени, указанное в милли-секундах, в значение типа TTimeStamp.

Справочник по Delphi

Уроки Delphi