Содержание:


DecodeDate

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

Синтаксис

DecodeDate(ADate: TDateTime; Year, Month, Day: Word)

Входные параметры
Имя параметра
Тип параметра
Описание
ADate 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.