Double Data Type Problem

[Maii]

Hi there,
following code had some problem while using Double data type
if i use currency data type it OK


Private Sub Command1_Click()
Dim a As Double
Dim b As Double
a = 4911399.08
a = a + 446192.58
a = a + 73490.23
b = 5431081.89
If a <> b Then
MsgBox "Error"
End If
End Sub


Thanks
maii

 

[HarleyQuinn]

Have a look at thread222-894973

Hope this helps

HarleyQuinn
---------------------------------
Get the most out of Tek-Tips, read FAQ222-2244 before posting.