strange comparison operator result in VBA, two equal double type values returns true with a greater than operator

[AnnaHansen]

I'm wrestling with odd behavior from vba.

I am trying to compare two numbers which are both converted to double type using cdbl() before comparison.

If greater, then do X. (else nothing)

However, when the two values are equal (in this case, 60604.02), the statement is evaluating true and doing X when I want it to not do X.

I'm baffled as to why this would be. I have found several explanations online that have to do with comparing strings and numbers, but nothing with odd results comparing two numbers.

<code>
Dim dblMyNum As Double
Dim dblLow As Double

dblLow = CDbl(txtBalTo.Value)
For i = 1 To lngCntAll
dblMyNum = CDbl(varFrame(i, 1))
If dblMyNum > dblLow Then
...
End If
Next i
</code>

 

[Joe4]

You may have some floating arithmetic issues going on (see: https://www.microsoft.com/en-us/mic...y-does-excel-give-me-seemingly-wrong-answers/).

Try rounding and see if that resolves your issue, i.e.

[COLOR=#333333][FONT=monospace]If Round(dblMyNum,2) > Round(dblLow,2) Then[/FONT][/COLOR]

 

[AnnaHansen]

You may have some floating arithmetic issues going on (see: https://www.microsoft.com/en-us/mic...y-does-excel-give-me-seemingly-wrong-answers/).

Try rounding and see if that resolves your issue, i.e.

[COLOR=#333333][FONT=monospace]If Round(dblMyNum,2) > Round(dblLow,2) Then[/FONT][/COLOR]

Worked like a charm! Thank you!

 

[Joe4]

You are welcome!