Функция 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
ReplaceDate в Delphi

Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (14 оценок, среднее: 4,93 из 5)
Загрузка...
Добавить комментарий