掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時間差を求める (ID:27852)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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; てな感じで作れば良いのではないですか。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.