Функция ReplaceTime в Delphi

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

Описание:

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

Синтаксис:

ReplaceTime (var DateTime: TDateTime; const NewTime: TDateTime);


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

uses SysUtils, DateUtils;
...
Var
  Res1, Res2: TDateTime;
begin
  Res1:= Now;
  Res2:= IncHour(Now);
  ReplaceTime(Res1,Res2);
  ShowMessage('Замена значений Res1 - ' + TimeToStr(Res1) + ', Res2 - ' + TimeToStr(Res2));
end;

Результат:

Функция ReplaceTime
ReplaceTime в Delphi

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (8 оценок, среднее: 4,88 из 5)
Загрузка...
Добавить комментарий