DecodeDate

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

DecodeDate(Date, Year, Month, Day)
Date: TDateTime	Дата и время
Year: Word	Значение года
Month: Word	Значение месяца
Day: Word	Значение дня

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

{Pascal Script}
Var
     Year, Month, Day: Word;
     s: String;

Begin
     DecodeDate(now, Year, Month, Day);
     s := intToStr(Day) + '-' + intToStr(Month) + '-' + intToStr(Year);
     AddToDebugLog('Результат выполнения "DecodeDate()" = ' + s);
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.