Comparison of Double values

[wrack]

Originally posted by wrack

Option Explicit
 
Private Sub Command1_Click()
    Dim aa1 As Double
    Dim aa2 As Double
    Dim bb As Double
    
    Dim aa As Double
    
    aa1 = 1.36
    aa2 = 0.04
    
    aa = CDbl(aa1) + CDbl(aa2)
    
    aa = Format(aa, "0.00")
    
    bb = 1.4
    
    bb = Format(bb, "0.00")
    
    If CDbl(aa) > CDbl(bb) Then
        MsgBox aa & ">" & bb
    ElseIf CDbl(aa) = CDbl(bb) Then
        MsgBox aa & "=" & bb
    Else
        MsgBox aa & "<" & bb
    End If
End Sub

Cheers...

if u use the approach I have used u will get the right result and I always use this thing...even though this was the first time I found that this is also possible with VB...

I was stumped...but I am glad that I am using the right method or atleast its a right method I think...

Cheers...