EncodeDate

Функция возвращает значение даты, заданное как Год, Месяц, День.

Синтаксис
EncodeDate(Year, Month, Day: Word): TDateTime
Входные параметры
Имя параметра	Тип параметра	Описание
Year	Word	Значение года
Month	Word	Значение месяца
Day	Word	Значение дня

Var
     res: TDateTime;

Begin
     res := EncodeDate(2020, 06, 19);
     WriteValue('Virtual channel 99', DateToStr(res));
end.