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