Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13456 / 76732

←次へ　｜　前へ→


	【68781】時刻シリアル値には誤差が生じますか？

たかC - 11/4/17(日) 11:03 -


	引用なし

	パスワード

初めて質問させていただきますよろしくお願いします
以下のコードは

１、変数tmcntにシリアル値で10時を代入する
２、シリアル値で1分づつ足していってtmcntが11時になったら"11時ですよ"と表示させる

ことを意図したものです。

ところが、tmcnt=vol_11になっても
msgboxのほうに分岐が行きません
（ローカルウインドウでは両方とも0.458333333333333）

これは割り切れない数字を足していくという
誤差によって生じたものなのでしょうか？
それともなにか、きわめて基本的なことがわかっていないことによるものなのでしょうか？

お教えいただければ幸いです

Sub test_t()
Const vol_min As Double = 1 / 24 / 60
Const vol_10h As Double = 10 / 24
Const vol_11h As Double = 11 / 24
Dim tmcnt As Double
　　
tmcnt = vol_10h

　　For i = 1 To 100
　　tmcnt = tmcnt + vol_min

　　　　If timcnt = vol_11h Then
　　　　MsgBox ("11時ですよ")
　　　　End If

　　Next

End Sub

1 hits

▼

【68781】時刻シリアル値には誤差が生じますか？ たかC 11/4/17(日) 11:03

≪