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

时　间:2017-01-05 15:12:44
作　者:易勋   ID：35404  城市：上海
摘　要:自定义函数功能:将二进制转换成十进制
正　文:

在Access中通过自定义函数将二进制转换成十进制。

Public Function BinDec(varBinary As Variant)
    Dim intl As Integer
    Dim lngDecimal As Long
    Dim i As Integer
    Dim s As Integer

    intl = Len(varBinary)
    s = 0
    For i = intl To 1 Step -1
        If Mid(varBinary, i, 1) = "1" Then
        lngDecimal = lngDecimal + 2 ^ s
        End If
        s = s + 1
    Next
    BinDec = lngDecimal
End Function