开发者

Confusing of TTimeSpan usage in Delphi 2010

I tried the new Record type TTimeSpan in Delphi 2010. But I encourage a very strange problem.

assert(TTimeSpan.FromMilliseconds(5000).Milliseconds = 5000);

This assertion does not pass. The value of 'TTimeSpan.FromMillisecon开发者_高级运维ds(5000).Milliseconds' is expected to be 5000, but it was 0.

I dig deeper:

function TTimeSpan.GetMilliseconds: Integer;
begin
  Result := Integer((FTicks div TicksPerMillisecond) mod 1000);
end;

FTicks = 50000000
TicksPerMillisecond = 10000
FTick div TicksPerMillisecond = 50000000 div 10000 = 5000
(FTick div TicksPerMillisecond) mod 1000 = 5000 mod 1000 = 0 // I do not understand, why mod 1000
Integer((FTick div TicksPerMillisecond) mod 1000) = Integer(0) = 0 

My code interpretation is correct, isn't it?

UPDATE: The method GetTotalMilliseconds (double precision) is implemented correctly.


You are confusing the properties giving the total amount expressed in a given unit with the properties giving the portion of a value when you break it up into its components (days, hours, minutes, seconds, milliseconds, ticks).

With those, you get the integer remainder for each category. So, Milliseconds will always be between 0 and 999 (Number Of Milliseconds Per Second - 1).
Or, another example, if you have 72 minutes, TotalMinutes is 72, but Minutes is 12.

It is very much similar to the DecodeDateTime function to break up a TDateTime.

And for what you want to achieve, you definitely need to use the TotalMilliseconds property, as TridenT pointed out, but the code for GetMilliseconds is indeed correct in TimeSpan.


You must use TotalMilliseconds instead of Milliseconds property.

It works better !

assert(TTimeSpan.FromMilliseconds(5000).TotalMilliseconds = 5000); 

From documentation:

TotalMilliseconds Double
Timespan expressed as milliseconds and part milliseconds

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜