スキルアップ・問題解決なら、モーグにおまかせ！

小数点以下の数字の、二捨三入プログラムを考えています。以下のように作成したのですが、３の時に反応しません。何が悪いのか、ご教示下さい。よろしくお願いします。
 
Sub test()
For i = 1 To 5
t = i / 10 + 2 '小数点プラス２
If (t - Int(t)) * 10 >= 3 Then
    t = Int(t) + 1 '３以上なら１を追加
    Debug.Print i; "-"; t
Else
    t = Int(t) '２以下なら、整数部分を表示
    Debug.Print i; "-"; t
End If
t = 0
Next i
End Sub

コンピュータでは、普通小数点以下のある数字を扱うとき２進数の浮動小数点数を使います。
２進数では１０進数の小数を正確に表すことが出来ません。
そのため、プログラムで０．３の計算をしても１０進→２進の変換過程で誤差を生じる為
実際には 0.29999999999999 というような値になってしまいます。
ですから、(0.3 * 10) >= 3 が真にならないのです。
 
小数以下の１０進数を扱うときは Currency とか Decimal なんてのを使います。
 

Option Explicit
Sub test()
Dim i As Long
Dim t As Currency
For i = 1 To 5
t = i / 10 + 2 '小数点プラス２
If (t - Int(t)) * 10 >= 3 Then
    t = Int(t) + 1 '３以上なら１を追加
    Debug.Print i; "-"; t
Else
    t = Int(t) '２以下なら、整数部分を表示
    Debug.Print i; "-"; t
End If
t = 0
Next i
End Sub

よろずや　さま
 
的確な回答、ありがとうございました。
思った通りの動きとなりました。
 
エクセルシートとVBAで、動きが違って困っていました。