Обновлено: 01 декабря, 2018

Функция ReplaceDate в Delphi

Используемый модуль: SysUtils

Описание:

Заменяет дату в заданном значении AValue на дату другого заданного значения NewDate, оставляя время неизменным.

Синтаксис:

ReplaceDate (var DateTime: TDateTime; const NewDate: TDateTime);

Пример использования:

uses SysUtils;
...
Var
  Res1, Res2: TDateTime;
begin
  Res1:=Now;
  Res2:=IncMonth(Now);
  ReplaceDate(Res1,Res2);
  ShowMessage('После замены Res1 - ' + DateToStr(Res1) + ', Res2 - ' + DateToStr(Res2));
end;

Результат:

ReplaceDate в Delphi

(14 оценок, среднее: 4,93 из 5)

Загрузка...