Процедура DecodeDateTime – розбиває TDateTime змінну на її частини дати/часу

Процедура DecodeDateTime в Delphi розбиває TDateTime змінну на її частини дати/часу.

Процедура DecodeDateTime: Додаємо місяць до дати, а потім отримуємо окремі значення дати та часу

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;