DecodeTime

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

Синтаксис
DecodeTime(Time: TDateTime; Hour, Min, Sec, MSec: Word)
Входные параметры
Имя параметра	Тип параметра	Описание
Time	TDateTime	Дата и время
Hour	Word	Значение часа
Min	Word	Значение минут
Sec	Word	Значение секунд
MSec	Word	Значение миллисекунд

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

Var
     Hour, Min, Sec, MSec: Word;
     res: String;

Begin
     DecodeTime(now(), Hour, Min, Sec, MSec);
     res := IntToStr(Hour) + ':' + IntToStr(Min) + ':' + IntToStr(Sec) + ':' + IntToStr(MSec);
     WriteValue('Virtual channel 99', res);
end.