Функция TimeStampToMSecs( const TimeStamp: TTimeStamp ): Comp;
Модуль: SysUtils
typeTDateTime = typeDouble; TTimeStamp = record
Time: Integer; // Число миллисекунд прошедших с полуночи
Date: Integer; // Количество дней прошедших с 1.01.0001г end;
Описание
Функция подсчитывает и возвращает суммарное количество миллисекунд в значении типа TTimeStamp (Time+Data*24*60*60*1000).