VBA学习笔记之Text（五）——字符串型数值和数值型字符串相互转换

一、数值转化为字符串函数Str、CStr

 Str函数将数值转换为字符串，即返回一个代表一个数值的字符串，其语法为：

Str（number）

 CStr函数将数值表达式转换为字符串，其语法为：

CStr（mynumberExpression）

注意：当一个数值转换成字符串时，总会在其前面保留一个空位来表示正负，即字符串的第一位一定是空格或正负号，Str将英文句号（.）作为有效的小数点。

演示代码：
Sub StrTranfomationDemo()

Dim myDouble As Double

myDouble = 234.823

Debug.Print "Str:<" & str(24.32) & ">"
Debug.Print "Str:<" & str(-24.32) & ">"
Debug.Print "CStr:<" & CStr(myDouble) & ">"

End Sub

运行结果

Str:< 24.32>
Str:<-24.32>
CStr:<234.823>

二、字符型数值转化为数值型数据

 Val函数可以将包含数值的字符型数据转化为Double（双精度）数值型数据类型，其语法为：

Val（string）
演示代码：
Sub ShowFormatVal()

Dim num As Double, str As String

str = Format(Now, "Short Time")
num = Val(str)
'如果现在的时间是 4:31 PM,下面语句展示的结果为: 16:31    16
Debug.Print str, num

End Sub

【应用】
字符型数值是不能进行四则运算的，只能通过Val函数将其转换后才能使用。
可以将8进制、16进制等转化为10进制数，如，Val（&o77）（8进制）、Val（&HFF）（16进制）分别转化为十进制的63和255