在Access中通过自定义函数将十六进制转换成十进制。
Public Function HexDec(strHexadecimal As String)
Dim intl As Integer
Dim lngDecimal As Long
Dim i As Integer
Dim s As Integer
intl = Len(strHexadecimal)
s = 0
For i = intl To 1 Step -1
lngDecimal = lngDecimal + Mid(strHexadecimal, i, 1) * 16 ^ s
s = s + 1
Next
HexDec = lngDecimal
End Function
例:输入 HexDec (400) 转换出来的结果就是十进制:1024。