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

Функция HourSpan в Delphi

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

Описание:

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

Синтаксис:

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

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

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

Результат:

HourSpan в Delphi