源码下载:二进制字符串转为长整型

        关 键 词:  
源码下载:二进制字符串转为长整型源码下载
Function Bin2Long(b as string) as Long
    Dim o as Long, i as Integer
    o = 0
    For i = len(b) To 1 step -1
        If mid(b, i, 1) = "1" Then
            o = o + 2 ^ (len(b) - i)
        End If
    Next i
End Function