Calculate the number of whole milliseconds between two TDateTime values.
Source position: dateutil.inc line 285
function MilliSecondsBetween( |
const ANow: TDateTime; |
const AThen: TDateTime |
):Int64; |
ANow |
|
First moment in time. |
AThen |
|
Second moment in time. |
Number of milliseconds between ANow and AThen.
MillisSecondsBetween returns the number of whole milliseconds between ANow and AThen. This means a fractional part of a millisecond 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 hours between two TDateTime values. |
|
|
Calculate the number of whole minutes between two TDateTime values. |
|
|
Calculate the number of whole seconds between two TDateTime values. |
Program Example62; { This program demonstrates the MilliSecondsBetween function } Uses SysUtils,DateUtils; Procedure Test(ANow,AThen : TDateTime); begin Write('Number of milliseconds between '); Write(TimeToStr(AThen),' and ',TimeToStr(ANow)); Writeln(' : ',MilliSecondsBetween(ANow,AThen)); end; Var D1,D2 : TDateTime; Begin D1:=Now; D2:=D1-(0.9*OneMilliSecond); Test(D1,D2); D2:=D1-(1.0*OneMilliSecond); Test(D1,D2); D2:=D1-(1.1*OneMilliSecond); Test(D1,D2); D2:=D1-(2.5*OneMilliSecond); Test(D1,D2); End.