VBA/Excel/Access/Word/Data Type Functions/CSng — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
CSng() converts value to Single
<source lang="vb">
Sub singValue()
Debug.Print CSng(25 * 5.5)
End Sub
</source>
To avoid the Type Mismatch error, use the built-in CSng function to convert the string stored in the value1 variable to a Single type number
<source lang="vb">
Sub AddTwoNums2()
Dim myPrompt As String Dim value1 As String Dim mySum As Single Const myTitle = "Enter data" myPrompt = "Enter a number:" value1 = InputBox(myPrompt, myTitle, 0) mySum = CSng(value1) + 2 MsgBox mySum & "(" & value1 & "+2)"
End Sub
</source>