如何通过自定义函数将十六进制转换成十进制

时　间:2017-01-16 08:37:41
作　者:易勋   ID：35404  城市：上海
摘　要:自定义函数功能:将十六进制转换成十进制
正　文:

在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。