Delphi-Help

Описание

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.

Пример кода

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

Примечание

Значение Даты для TDateTime всегда устанавливается в 30 декабря 1899. Почему, не ясно - это за 2 дня до начала 20-го столетия.