在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