Calculate the number of whole hours between two TDateTime values.
Source position: dateutil.inc line 282
function HoursBetween( |
const ANow: TDateTime; |
const AThen: TDateTime |
):Int64; |
ANow |
|
First TDateTime value. |
AThen |
|
Second TDateTime value. |
Number of hours between ANow and AThen.
HoursBetween returns the number of whole hours between ANow and AThen. This means the fractional part of an hour (minutes,seconds etc.) is dropped.
|
Calculate the number of whole years between two TDateTime values. |
|
|
Calculate the number of whole months between two TDateTime values. |
|
|
Calculate the number of whole weeks between two TDateTime values. |
|
|
Number of whole days between two TDateTime values. |
|
|
Calculate the number of whole minutes between two TDateTime values. |
|
|
Calculate the number of whole seconds between two TDateTime values. |
|
|
Calculate the number of whole milliseconds between two TDateTime values. |
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.