EncodeTime(Hour, Minute, Second[, MilliSecond] : Integer) : Integer
Сформировать значение типа DateTime.

Функция EncodeDate возвращает значение типа DateTime для указанного часа, минуты, секунды и миллисекунды. Дата равна 1-1-0001.

Аргумент Hour содержит час. Он должны быть в пределах от 0 до 23.

Аргумент Minute содержит минуты. Они должны быть в пределах от 0 до 59.

Аргумент Second содержит секунды. Они должны быть в пределах от 0 до 59.

Аргумент MilliSecond содержит миллисекунды. Они должны быть в пределах от 0 до 999. Этот аргумент можно не указывать, тогда миллисекунды будут равны 0.

Пример:

Procedure OnCreate;
Var
  D : DateTime;
Begin
  D := EncodeTime(12, 15, 00);
  Warning(ToStr(D)); // 1-01-1 12:15

  D := EncodeTime(10, 30, 20, 400);
  Warning(ToStr(D)); // 1-01-1 10:30:20.400
End;

Смотри функции EncodeDate.

© RTIT