- Single Double . Single 4 -3.402823E38 1.401298E45. Double 8 .
:
Dim decAsdf as Single
Dim decAsdf as Double
, . , , .
Sub doubleDataTypeExample()
Dim doubleTest As Double
doubleTest = 0.0000045 * 0.005 * 0.01
MsgBox "doubleTest = " & doubleTest
End Sub