FPDoc Onlineexperiment

HoursBetween function

In unit DateUtils

Calculate the number of whole hours between two TDateTime values.

Declaration

pascal

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

Arguments

`ANow`	First TDateTime value.
`AThen`	Second TDateTime value.

Function result

Number of hours between ANow and AThen.

Description

HoursBetween returns the number of whole hours between ANow and AThen. This means the fractional part of an hour (minutes,seconds etc.) is dropped.

See also

Example: `ex59`

pascal

Program Example59;

{ This program demonstrates the HoursBetween function }

Uses SysUtils,DateUtils;

Procedure Test(ANow,AThen : TDateTime);

begin
 Write('Number of hours between ');
 Write(DateTimeToStr(AThen),' and ',DateTimeToStr(ANow));
 Writeln(' : ',HoursBetween(ANow,AThen));
end;

Var
  D1,D2 : TDateTime;

Begin
  D1:=Now;
  D2:=D1-(59*OneMinute);
  Test(D1,D2);
  D2:=D1-(61*OneMinute);
  Test(D1,D2);
  D2:=D1-(122*OneMinute);
  Test(D1,D2);
  D2:=D1-(306*OneMinute);
  Test(D1,D2);
  D2:=D1-(5.4*OneHour);
  Test(D1,D2);
  D2:=D1-(2.5*OneHour);
  Test(D1,D2);
End.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.