Delphi-Help

Описание

procedure DecodeDateTime ( const SourceDate : TDateTime; out Year, Month, Day, Hour, Min, Sec, MSec : Word ) ;

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

Пример кода

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

myDate сейчас = 29/01/2001
myHour = 12
myMin = 45
mySec = 12
myMilli = 34
myDay = 29
myMonth = 1
myYear = 2001

Примечание