Разбивает значение TDateTime на отдельные значения времени
SysUtils unit
procedure DecodeTime ( const SourceDateTime : TDateTime; out Hour, Min, Sec, MSec : Word ) ;
Описание
Процедура DecodeTime извлекает значения часа, минуты, секунды и миллисекунды из данного SourceDateTime TDateTime значение типа.
Она сохраняет значения в переменных вывода: Hour, Min, Sec и MSec.
Похожие команды
DecodeDate Извлекает значения года, месяца, дня из TDateTime переменной
DecodeDateTime Разбивает TDateTime переменную на ее части даты/времени
EncodeDate Формирует значение TDateTime из значений года, месяца и дня
EncodeDateTime Формирует значение TDateTime из значений времени и дня
EncodeTime Формирует значение TDateTime из значений часа, минуты, секунды и миллисеккунды
RecodeDate Изменяет только дату переменной TDateTime
RecodeTime Изменяет только время переменной TDateTime
ReplaceDate Изменяет только часть даты TDateTime переменной
ReplaceTime Изменяет только часть времени TDateTime переменной
Пример кода : Добавка 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;
Time сейчас = 12:50:12
Hour = 12
Minute = 50
Second = 12
MilliSec = 34