Problem With <>

[Sharmastic]

Hi,
i'm having a problem with the <> (not Equal) giving the wrong answer,

i have 2 values that are both identical in every way i can find except the <> says they are different,

in excel watch both values are displayed as Type Variant/Double and both = 0.47 and yet the following code says they are different,


If Application.RoundUp(Cells(RowID, "Q"), 2) <> Application.RoundUp((Cells(RowID, "G") * 1.1 * (1 + (Cells(RowID, "E") / 100))), 2) Then

it basically checks that the price is correct by using the Cost (Cells(RowID, "G"))) adding 10% then adding any Vat ((Cells(RowID, "E")) which matches the value in Cells(RowID, "Q"),

They both display as identical in the Watch window and the same Type (Variant/Double) and yet the Macro is adamant they are both different?????

the if statement returns True, if i change the <> to = it comes up as false. is there anything i'm missing that i should check to try and find a differance??

it does this with about 7000 out of 30000 checks and i carn't figure out why.

Many thanks in advance for any help,

 

[Sharmastic]

example data is as follows
Cells(RowID, "Q") = 0.47
(Cells(RowID, "G") = 0.35
Cells(RowID, "E") = 20

 

[shg]

The code works for me with manual entry of the values.

You could set a variable to each expression and look at those in the Locals window, and subtract them to see the difference.

 

[Sharmastic]

The code works for me with manual entry of the values.

You could set a variable to each expression and look at those in the Locals window, and subtract them to see the difference.

Many thanks SHG,
turns out when i subtract 0.47 from 0.47 i get -5.55111512312578E-17 so im guessing its skipping the rounding up in the equations,
ive solved it by adding application.round to the answer which rounds to 0 dec points making it = 0 so it now works, bit of a farse though,
so now have

If Application.Round(Cells(RowID, "Q") - (Cells(RowID, "G") * 1.1 * (1 + (Cells(RowID, "E") / 100))), 0) = 0 Then

Still dont get why the previous doesnt work on mine (Using Microsoft Office Home and Business 2010) but problem solved.

not 100% exact but close enough for what i need it to do so thanks again shg.

 

[shg]

As a matter of practice, you should always compare floating-point numbers with an epsilon to accommodate numerical precision issues. Or use the Currency data type in VBA, which is a scaled integer.