VBA中十六进制转换问题

VBA语言中，数字表示的方法还有八进制、十六进制、科学计数法。例如

Dim a As Integer
Dim b As Integer
a = &O111
b = &HA

对于科学计数法，如果书写代码时录入 a = 1.2E-3，VBA编辑器会自动改写为0.0012

• 预先了解的英语知识
  

二进制BIN、八进制OCT、十进制DEC、十六进制HEX

• 十进制数字转换为八进制、十六进制、字符串

VBA内置函数库下面Conversion类中，有OCT、HEX等函数，用于将任何形式的数字转换为字符串。例如

?VBA.Conversion.Hex(10)将得到字符串A，这是因为十进制的10与十六进制的A是相等的。 10=&HA

注意了，转换为其他进制，得到的结果是字符串（划重点）

Sub 数字转换为其他进制()     Dim d As Integer     Dim o As String     Dim h As String     Dim s As String     d = 93     o = Oct(d)     h = Hex(d)     s = CStr(d)     Debug.Print o, h '打印结果     135    5D     Debug.Print d, s '打印结果      93      93 End Sub

从上例子可以看到十进制93等于八进制的135，也等于十六进制的5D。下面继续学习

• 数字的等价性

VBA中，凡是以&O或&H开头的都是数字，不是字符串（划重点）。除非故意用双引号包围起来。

也就是说，&O135是十进制的数字，无论是类型还是大小，与数字93完全相同！

Sub 数字的等价性()     Dim d As Integer     Dim o As Integer     Dim h As Integer     d = 93     o = &O135     h = &H5D     Debug.Print d = o     Debug.Print d = h End Sub

以上打印出两个True。证明一切！只不过是表现不同而已。

• 字符串转换为数值 

对于任何形式的数字字符串，均可使用Val函数转换为对应的十进制数

Sub 字符串转换为数字()     Dim d As Integer     Dim o As Integer     Dim h As Integer     d = Val(93)     o = Val(&O135)     h = VBA.Conversion.Val(&H5D) End Sub

（全文完）