Delphi-Help

Описание

procedure DecodeTime ( const SourceDateTime : TDateTime; out Hour, Min, Sec, MSec : Word ) ;

Процедура DecodeTime извлекает значения часа, минуты, секунды и миллисекунды из данного SourceDateTime TDateTime значение типа.
Она сохраняет значения в переменных вывода: Hour, Min, Sec и MSec.

Пример кода

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;

Time сейчас = 12:50:12
Hour = 12
Minute = 50
Second = 12
MilliSec = 34

Примечание