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.