2

Delphi 5 で 2 つの TDateTime 変数の差を秒単位で見つけられるようにしたいと考えています。それ以降のバージョンの Delphi には、これを行うためのヘルパー関数SecondsBetweenがあります。自分でロールする以外に、これを行うためのより良い方法はありますか (2 つの変数の差を double として見つけてから、それらを秒に変換する)?

ありがとう。

4

2 に答える 2

6
Secs := Round(SecsPerMin * MinsPerHour * HoursPerDay * Abs(Time2 - Time1));
于 2013-10-31T05:21:57.770 に答える
0

これは、同じことを行う別の方法です。Delphi 5 でテスト済み

var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(datetime2-datetime1, Hour, Min, Sec, MSec);
end;
于 2016-02-29T18:40:06.280 に答える