時間差を求める

KM 2007-09-25 22:58:02 No: 27851

『MilliSecondsBetween 関数』的なものをDelphi3でも使いたいのですが・・・それに変わる関数ってあるんでしょうか？色々調べてはいますが見つかりません。

AVA 2007-09-26 03:07:45 No: 27852

MilliSecondBetweenはTDateTimeが日付を表す実数値になっているので実数値を引いた結果をミリ秒にする関数ですので、Delphi3に無いのであれば

function TForm1.ABetween(const ANow, AThen: TDateTime): Int64;
begin
Result := Trunc(86400000 * GetSpan(ANow,AThen));
end;

function TForm1.GetSpan(const ANow, AThen: TDateTime): TDateTime;
begin
  if ANow > AThen then
    Result := ANow - AThen
  else
    Result := AThen - ANow;
end;
てな感じで作れば良いのではないですか。