Функция EncodeTime в Delphi формирует значение TDateTime из значений часа, минуты, секунды и миллисекунды.
SysUtils unit
function EncodeTime (const Hour, Min, Sec, MSec : Word) : TDateTime;
Функция EncodeTime генерирует возвращаемое значение TDateTime из переданных значений Часа (Hour), Минуты (Min), Секунды (Sec) и Миллисекунды (MSec).
Разрешенные значения параметра:
- Hour = 0..23
- Min = 0..59
- Sec = 0..59
- MSec = 0..999
Если Вы превысите эти значения, то поднимется EConvertError.
Примечание.
Значение Даты для TDateTime всегда устанавливается в 30 декабря 1899. Почему, не ясно - это за 2 дня до начала 20-го столетия.
Функция EncodeTime: Назначение времени переменной TDateTime
var
myDate : TDateTime;
begin
// Устанавливаем мою переменную даты используя функцию EncodeTime
myDate := EncodeTime(12, 34, 56, 789);
LongTimeFormat := 'hh:mm:ss.z'; // Гарантируем, что Миллисекунды будут показаны
ShowMessage('Дата установлена в '+DateToStr(myDate));
ShowMessage('Время установлено в '+TimeToStr(myDate));
end;
Результат
Дата установлена в 30/12/1899
Время установлено в 12:34:56.789
Похожие функции, процедуры и команды
DecodeDate — извлекает значения года, месяца, дня из TDateTime переменной.
DecodeDateTime — разбивает TDateTime переменную на ее части даты/времени.
DecodeTime — разбивает значение TDateTime на отдельные значения времени.
EncodeDate — формирует значение TDateTime из значений года, месяца и дня.
EncodeDateTime — формирует значение TDateTime из значений времени и дня.
