VBA/Excel/Access/Word/Data Type/Double

Double and Single

   <source lang="vb">

Sub doubleDemo()

   Dim sngNumber As Single
   Dim dblNumber As Double
   sngNumber = 123.456
   dblNumber = 789.012

End Sub

</source>
   
  

Double value

   <source lang="vb">

Sub AtnDemo()

   Dim pi As Double
   pi = 4 * Atn(1)

End Sub

</source>
   
  

Mathematica does not understand 1.2E-03, use -03 instead

   <source lang="vb">

Function Scientific(s As String) As String

 Dim pos%
 pos = InStr(s, "E")
 If pos Then
   Scientific = Left(s, pos - 1) + "*10^" + Mid(s, pos + 1)
 Else
   Scientific = s
 End If

End Function

</source>