Обновлено: 01 декабря, 2018

Функция DecodeTime в Delphi

Используемый модуль: SysUtils

Описание:

Разбивает время Time типа TDateTime на час — Hour типа Word, минуту — Min типа Word, секунду — Sec типа Word, миллисекунду — MSec типа Word.

Синтаксис:

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

Пример использования:

uses SysUtils;
...
Var
  H, M, S, Ms: Word;
begin
  DecodeTime(Now, H, M, S, Ms); // извлекаем значения из текущего времени
  ShowMessage('Сейчас ' + IntToStr(H) + ':' + IntToStr(M) + '.' + IntToStr(S) + '.' + IntToStr(Ms));
end;

Результат:

DecodeTime в Delphi