在Delphi 2010中混淆了TTimeSpan的使用

Question

我在Delphi 2010中尝试了新的Record类型TTimeSpan.但我鼓励一个非常奇怪的问题.

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

这个断言没有通过.'TTimeSpan.FromMilliseconds(5000).Milliseconds'的值预计为5000,但它为0.

我深入挖掘:

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 

我的代码解释是正确的,不是吗？

更新:方法GetTotalMilliseconds(双精度)正确实现.

Answer 1

您将给定在给定单位中表示的总金额的属性混淆,当您将其分解为其组件(天,小时,分钟,秒,毫秒,刻度)时,属性给出值的一部分.

有了这些,您将获得每个类别的整数余数.因此,Milliseconds始终在0到999之间(每秒毫秒数 - 1).
或者,另一个例子,如果你有72分钟,TotalMinutes是72,但是Minutes12.

它非常类似于DecodeDateTime分手的功能TDateTime.

而对于你想要实现的目标,你肯定需要使用该TotalMilliseconds属性,正如TridenT指出的那样,但代码GetMilliseconds确实是正确的TimeSpan.