Visual Basic > API and Miscellaneous

Binary Numbers to Decimal

Binary Numbers to Decimal

'This function receives a string, hopefully containing a
'binary number and returns the decimal equivalent.
Function BinToDec(ByVal BinValue As String) As Byte
    
    'Dimension some variables.
    Dim lngValue As Byte
    Dim x As Long
    Dim k As Long
    
    k = Len(BinValue)
    For x = k To 1 Step -1
      If Mid$(BinValue, x, 1) = "1" Then
        If k - x > 30 Then
          lngValue = lngValue Or -2147483648# 'avoid overflow
        Else
          lngValue = lngValue + 2 ^ (k - x)
        End If
      End If
    Next x
    
     BinToDec = lngValue
     
End Function