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

Функция EncodeDate возвращает значение типа DateTime для указанных значений.

Аргумент Year содержит год.

Аргумент Month содержит месяц в виде числа от 1 до 12. Число 1 соответствует январю, 12 соответствует декабрю.

Аргумент Day содержит день. День должен быть в пределах от 1 до 31.

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

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

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

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

Не указанные аргументы Hour, Minute, Second, MilliSecond заполняются нулями.

Пример:

Procedure OnCreate;
Var
  D : DateTime;
Begin
  D := EncodeDate(2011, 2, 23);
  Warning(ToStr(D)); // 23-02-2011

  D := EncodeDate(2011, 2, 23, 12, 30, 0);
  Warning(ToStr(D)); // 23-02-2011 12:30

  D := EncodeDate(2011, 2, 23, 12, 30, 4, 541);
  Warning(ToStr(D)); // 23-02-2011 12:30:04.541
End;

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

© RTIT