Функции и процедуры Delphi. Справочник.

IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

4. Функции и процедуры для работы с датой и временем

Процедура DecodeDate(
D: TDateTime;
var Year, Month, Day: Word );

Модуль: 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;

[Вернуться к содержанию]