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

Функция SecondsBetween в Delphi

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

Описание:

Возвращает число полных секунд между двумя указанными значениями ANow и AThen типа TDateTime.

Синтаксис:

function SecondsBetween(const ANow, AThen: TDateTime): Int64;

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

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

Результат:

SecondsBetween в Delphi