AVZ 5. Руководство пользователя
×
Меню
Индекс

16.43.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.