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

Функция RecodeSecond в Delphi

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

Описание:

Возвращает значение TDateTime, соответствующее заданному значению AValue типа TDateTime с секундами, замененными на указанное значение ASecond типа Word.

Синтаксис:

function RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;

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

uses DateUtils;
...
var
  Res: TDateTime;
begin
  Res:= RecodeSecond(Now, 12); // меняем секунду в текущем времени на 12
  ShowMessage(DateTimeToStr(Res));
end;

Результат:

RecodeSecond в Delphi