?(int((3*33.33)*100))/100
99.98
?(int((3*33.33)*1000))/1000
99.989
?3*33.33
? 99.99 *100
? 9999 /100
99.99
For x = 1 to 3: Debug.print x: Next x
1
2
3
Option Explicit
Dim x As Integer
Dim y
Sub RunTest()
Sngl
Doubl
Deciml
Currncy
End Sub
Sub Sngl()
y = 0
For x = 1 To 10000
y = y + CSng(0.0001)
Next x
Debug.Print "Single: " & y
End Sub
Sub Doubl()
y = 0
For x = 1 To 10000
y = y + CDbl(0.0001)
Next x
Debug.Print "Double: " & y
End Sub
Sub Deciml()
y = 0
For x = 1 To 10000
y = y + CDec(0.0001)
Next x
Debug.Print "Decimal: " & y
End Sub
Sub Currncy()
y = 0
For x = 1 To 10000
y = y + CCur(0.0001)
Next x
Debug.Print "Currency: " & y
End Sub
Single: 1.000054
Double: 0.999999999999906
Decimal: 1
Currency: 1