時間を取得するには (ID:35554)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 パソコンの実数演算は最後の桁が切り捨てられるので、 0.9999999999999999999999999999999999999… の無限小数を整数にする時に1ではなくて0になってしまうのは仕方ないね。 >Dt1 := StrToDateTime('2009/08/31 00:00:00'); >Dt2 := StrToDateTime('2009/08/31 01:00:00'); >Dt3 := HoursBetween(Dt1, Dt2); >ShowMessage('Dt3 = ' + IntToStr(Dt3)); この結果を1にしたいなら、 Dt3 := HoursBetween(Dt1, IncMilliSecond(Dt2)); と、1ミリ秒だけ調整して差を計算すれば実用的には十分じゃないの？