VBA/Excel/Access/Word/Data Type/Double — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
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>