Can someone help me to find solution:

Int(1.3 * 100) = 130

Int(1.4 * 100) = 139  (also  Int(1.38 to 1.49  * 100 ) )

Int(1.5 * 100) = 150

(VBA:Retail 6.0.874)

Thanks in advace

Hello Grifi,

I don't know the reason but this should solve your problem

Chas

Sub test()
Dim a
Dim b
a = 1.38
b = 100
Debug.Print Int(a * b)

End Sub

That's brilliant.

It's to do with how computers store numbers. There is no binary equivalent to 1.4 only 1 (0001) or 2 (0010) so there is some process involved where the computer approximates a double (1.4) for storing it in memory. This generally works ok if you work like for like (although not always) but if you do some arithmetic and then convert to an integer bits get left off and in this case some funny results occur.

I'll see if I can find you a link that tells you more about it.

I am not sure why, but after some testing. It is pretty interesting.

Anyway, to solve this issue, use CInt instead of Int. The Int() function seems to give this strange result, but CInt is totally fine. Also this problem only happends when you use Int() function. If you just do msgbox cstr(1.4 * 100), it will give you 140.

Try this code to see how things behave.

' explicit double
Dim a1 As Double, a2 As Double
a1 = 1.4
a2 = 100
MsgBox "CStr(a1 * a2) = " + CStr(a1 * a2) + vbNewLine + _
"CStr(Int(a1 * a2)) = " + CStr(Int(a1 * a2)) + vbNewLine + _
"CStr(CInt(a1 * a2)) = " + CStr(CInt(a1 * a2))

' implicit
Dim b1, b2
b1 = 1.4
b2 = 100
MsgBox "CStr(b1 * b2) = " + CStr(b1 * b2) + vbNewLine + _
"CStr(Int(b1 * b2)) = " + CStr(Int(b1 * b2)) + vbNewLine + _
"CStr(CInt(b1 * b2)) = " + CStr(CInt(b1 * b2))

' direct const
MsgBox "CStr(1.4 * 100) = " + CStr(1.4 * 100) + vbNewLine + _
"CStr(CInt(1.4 * 100)) = " + CStr(CInt(1.4 * 100)) + vbNewLine + _
"CStr(Int(1.4 * 100)) = " + CStr(Int(1.4 * 100)) + vbNewLine + _
"CStr(Int(CDbl(1.4 * 100))) = " + CStr(Int(CDbl(1.4 * 100)))