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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: