Процедура возвращает год (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. |