16.45.7. procedure DecodeTime

 
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
 
Извлекает из указанного времени часы,  минуты, секунды и миллисекунды. В качестве первого параметра можно указывать полную дату, это не является ошибкой, день, месяц и год будут проигнорированы.
 
Пример:
 
var
   Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Now, Hour, Min, Sec, MSec);
  AddToLog('Hour=' + IntToStr(Hour));
  AddToLog('Min='  + IntToStr(Min));
  AddToLog('Sec='  + IntToStr(Sec));
  AddToLog('MSec=' + IntToStr(MSec));
end.