16.45.6. procedure DecodeDate
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
Выделяет из указанной даты день, месяц и год.
Пример:
var
Year, Month, Day: Word;
begin
DecodeDate(Now, Year, Month, Day);
AddToLog('Year=' + IntToStr(Year));
AddToLog('Month=' + IntToStr(Month));
AddToLog('Day=' + IntToStr(Day));
end.