Delphi-Help

Описание

procedure DecodeDate ( const SourceDate : TDateTime; out Year, Month, Day : Word ) ;

Процедура DecodeDate извлекает значения года, месяца и дня из данного SourceDate TDateTime значение типа.
Она сохраняет значения в переменных вывода: Year, Month и Day.

Пример кода

var
myDate : TDateTime;
myYear, myMonth, myDay : Word;
begin
// Установка переменной myDate в значение декабря 2000
myDate := StrToDate('29/12/2000');
// Теперь добавляме месяц к этому значению
myDate := IncMonth(myDate);
// И позволяем нам увидеть, что мы получили
DecodeDate(myDate, myYear, myMonth, myDay);
ShowMessage('myDate  сейчас = '+DateToStr(myDate));
ShowMessage('myDay      = '+IntToStr(myDay));
ShowMessage('myMonth    = '+IntToStr(myMonth));
ShowMessage('myYear     = '+IntToStr(myYear));
end;

myDate сейчас = 29/01/2001
myDay = 29
myMonth = 1
myYear = 2001

Примечание