devxlogo

BinToDec – Convert from binary to decimal

BinToDec – Convert from binary to decimal

' convert from binary to decimal'' NOTE: requires Power2()Function BinToDec(value As String) As Long    Dim result As Long, i As Integer, exponent As Integer    For i = Len(value) To 1 Step -1        Select Case Asc(Mid$(value, i, 1))            Case 48      ' "0", do nothing            Case 49      ' "1", add the corresponding power of 2                result = result Or Power2(exponent)            Case Else                Err.Raise 5      ' Invalid procedure call or argument        End Select        exponent = exponent + 1    Next    BinToDec = resultEnd Function

devx-admin

Share the Post: