Содержание:


DecodeTime

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

Синтаксис

DecodeTime(ATime: TDateTime; Hour, Min, Sec, MSec: Word)

Входные параметры
Имя параметра
Тип параметра
Описание
ATime 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.