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

Функция SecondSpan в Delphi

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

Описание:

Возвращает действительное число, содержащее разность секунд (с учетом миллисекунд, как дробных частей секунды) двух указанных значений ANow и AThen типа TDateTime.

Синтаксис:

function SecondSpan(const ANow, AThen: TDateTime): Double;

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

uses DateUtils;
...
var
  Res: Double;
begin
  Res:= SecondSpan(Now, Yesterday); // возвращает кол-во секунд с учетом неполных между вчерашней датой и сегодняшней
  ShowMessage('Между вчера и сегодня - ' +  FloatToStr(Res) + ' секунд');
end;

Результат:

SecondSpan в Delphi