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

Функция HoursBetween в Delphi

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

Описание:

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

Синтаксис:

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

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

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

Результат:

HoursBetween в Delphi