急急,在线等待 十六进制转换成十进制的函数是什么

Question

Private Sub Command1_Click()
Dim a As Long
a = &HFF11D
MsgBox a
End Sub
你定义了一个长整形变量，就可以直接得到10进制的数字了。

Answer 1

val() 函数val(&HA) = 10

Answer 2

=Val("&H" & 十六进制数)比如：
=Val("&H" & "10")
用CInt、CLng也行：
=CInt("&H" & 十六进制数)
=CLng("&H" & 十六进制数)=Val("&O" & 八进制数)比如：
=Val("&O" & "10")
用CInt、CLng也行：
=CInt("&O" & 八进制数)
=CLng("&O" & 八进制数)