Функция EncodeDate – формирует значение TDateTime из значений года, месяца и дня

Функция EncodeDate в Delphi формирует значение TDateTime из значений года, месяца и дня.

Функция EncodeDate: Назначение даты переменной TDateTime

var
  myDate : TDateTime;

begin
  // Устанавливаем мою переменную даты используя функцию EncodeDate
  myDate := EncodeDate(2000, 02, 29);

  LongTimeFormat := 'hh:mm:ss.zzz';  // Гарантируем, что Миллисекунды будут показаны

  ShowMessage('Дата установлена в '+DateToStr(myDate));
  ShowMessage('Время установлено в  '+TimeToStr(myDate));
end;