Hi, try to run this code: [co

[BML]

Hi,

try to run this code:

'------------------------------------------
Private Sub Form_Load()

  Dim a As Double
  Dim b As Double

  a = 6.3
  b = 1.1 + 2.1 + 3.1
  
  Debug.Print "a = " & a                'a = 6,3
  Debug.Print "b = " & b                'b = 6,3
  Debug.Print "a = b : " & CBool(a = b) 'a = b : False
  Debug.Print "a - b = " & a - b
                            'a-b= -8,88178419700125E-16

End Sub
'------------------------------------------

and notice that VB doesn't assume that a is equal to b,
can anyone explain why? regards,

Bruno Loureiro.

 

[JohnYingling]

Because doubles are represented with binary decimals. Try figuring .1 decimal in binary using only 1/2, 1/4, 1/8 1/(2^N). Use Currency which keeps up to 4 decimal places.

http://www.VBCompare.com

http://www.VBSortGen.com

 

[JohnYingling]

Make that "binary places", not "binary decimals".

http://www.VBCompare.com

http://www.VBSortGen.com