Процедура DecodeTime – разбивает значение TDateTime на отдельные значения времени

Процедура DecodeTime в Delphi разбивает значение TDateTime на отдельные значения времени.

Процедура DecodeTime: Добавка 5 минут ко времени, и затем извлечение нового значения времени

var
  myDate : TDateTime;
  myHour, myMin, mySec, myMilli : Word;

begin
  // Установка переменной myDate в значение декабря 2000
  myDate := StrToDateTime('29/12/2000 12:45:12.34');

  // Теперь добавляем  минут к этому значению
  myDate := IncMinute(myDate, 5);

  // И позволяем нам увидеть то, что мы получили
  DecodeTime(myDate, myHour, myMin, mySec, myMilli);
  ShowMessage('Time сейчас = '+TimeToStr(myDate));
  ShowMessage('Hour     = '+IntToStr(myHour));
  ShowMessage('Minute   = '+IntToStr(myMin));
  ShowMessage('Second   = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
end;