DecodeTime

Процедура DecodeTime() возвращает значение часов, минут, секунд и миллисекунд для указанного значения времени в формате TDateTime. Если входной параметр времени не содержит значения времени, то процедура возвращает во всех переменных значение "0".

DecodeTime(Time, Hour, Min, Sec, MSec)
Time: TDateTime	Дата и время
Hour: Word	Значение часа
Min: Word	Значение минут
Sec: Word	Значение секунд
MSec: Word	Значение миллисекунд

Пример вызова:

{Pascal Script}
Var
    Hour, Min, Sec, MSec: Word;
    res: String;

Begin
    DecodeTime(now(), Hour, Min, Sec, MSec);
    res := intToStr(Hour) + ':' + intToStr(Min) + ':' + intToStr(Sec) + ':' + intToStr(MSec);
    AddToDebugLog('Результат выполнения "DecodeTime" = ' + res);
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.