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

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

【应用】

1、字符型数值是不能进行四则运算的，只能通过Val函数将其转换后才能使用。

2、可以将8进制、16进制等转化为10进制数，如，Val（&o77）（8进制）、Val（&HFF）（16进制）分别转化为十进制的63和255