delphi - Delphi 5中2个日期之间的差异

Question

我希望能够在 Delphi 5 中找到两个 TDateTime 变量之间的秒数差异。在更高版本的 delphi 中，有辅助函数SecondsBetween可以做到这一点。除了滚动我自己之外，有没有更好的方法来做到这一点（将两个变量的差异作为双精度然后将它们转换为秒）？

谢谢。

Answer 1

Secs := Round(SecsPerMin * MinsPerHour * HoursPerDay * Abs(Time2 - Time1));

Answer 2

这是另一种做同样的方式。在德尔福 5 中测试

var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(datetime2-datetime1, Hour, Min, Sec, MSec);
end;