Модуль: SysUtils

type TDateTime = type Double;

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

Описание
Функция подсчитывает и возвращает суммарное количество миллисекунд в значении типа TTimeStamp (Time+Data*24*60*60*1000).