|
初めて質問させていただきますよろしくお願いします
以下のコードは
1、変数tmcntにシリアル値で10時を代入する
2、シリアル値で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
|
|