something funny

[Jim Davis]

Dim S as Single
Dim S1 as Integer
S = 5.2
S1 = Int(s)
Msgbox S - S1

Something is wrong in my PC or my Math teacher has lied, but i think 5.2 - 5 is 0.2, not 0.199998....
Is this a problem in VB or my Celeron is sucks?

(with Double this problem solved but its..... tricky)

answer please... (urgent)

[Gtarawneh]

What the hell?
The same thing is happening here,,,,

[Jim Davis]

Really?! ohh no.... (cryin face)

[djengiz]

Why are you casting in the first place?

[darre1]

its not your celeron, its to do with the way that decimal numbers are stored in memory, not just in VB.

decimal numbers cannot be represented accuratly in binary basically.

do a search on here for "floating-point numbers microsoft" and you'll find a nice big discussion about it - quite interesting actually

[Jim Davis]

umm i cant found i think
but what can i do to solve my problem, without change the type of "s"?

help me pls...

[djengiz]

I learned in school that you can only use so many decimal places as the least number of decimal places. You should round it to 1 decimal place.

Dim S As Single
    Dim S1 As Integer
    S = 5.2
    S1 = Int(S)
    MsgBox Round(S - S1, 1)

[Jim Davis]

This is an amazing tip , ill make a try!

Thanks for the answers.

Jim