DecodeDate

Процедура возвращает год (Year), месяц (Month) и день (Day) указанной даты, значение которой указанно в формате TDateTime. Если входной параметр не содержит значения даты, то в переменные Year, Month, Day записывается значение "0".

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

Пример вызова:

Var
     Year, Month, Day: Word;
     res: String;

Begin
     DecodeDate(now(), Year, Month, Day);
     res := IntToStr(Day) + '-' + IntToStr(Month) + '-' + IntToStr(Year);
     WriteValue('Virtual channel 99', res);
end.