Модуль: SysUtils

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

Пример
var
   D: TDateTime;
   Year, Month, Day: Word;
begin
   D:= Now;
   DecodeDate(D, Year, Month, Day);
   MessageDlg( 'Сегодня' +#13#13+ 'Число: '+ IntToStr(Day)+ #13+ 'Месяц: '+ IntToStr(Month)+ #13+ 'Год: '+ IntToStr(Year), mtInformation, [mbOk], 0);
end;