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;
|