德尔福 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;