Процедуры Delphi
Просмотров: 410

Процедура ReplaceDate – изменяет только часть даты TDateTime переменной

Процедура ReplaceDate в Delphi – изменяет только часть даты TDateTime переменной.

Процедура ReplaceDate: Изменение даты, не изменяя время

var
  myDateTime, newDate : TDateTime;

begin
  // Установка даты в 29/10/2002 12:34:56
  myDateTime := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0);
  ShowMessage('Начальная дата/время = '+DateTimeToStr(myDateTime));

  // Теперь изменяем дату не затрагивая время
  newDate := EncodeDate(1957, 02, 18);
  ReplaceDate(myDateTime, newDate);
  ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime));
end;

Помощь

Продукция и услуги

Main Menu