Boa noite.

Como converter em VB um número binário para decimal.

Por exemplo : digite 0101 e deve retornar 5.

obrigado.

Silva

tente isto se atender avise e encerre o post

 

Function ConverteBinDec(ByVal bin As String) As String
Dim msg, nmsg, nhex As String
Dim i, exp, bit, j As Integer

msg = bin: exp = 3
nmsg = 0: nhex = ""
j = Len(msg): exp = j - 1
For i = 1 To j
    bit = Mid(msg, i, 1)
    If (bit = 1) Then
        nmsg = nmsg + (bit * (2 ^ exp))
    End If
    'nhex = nmsg
    exp = exp - 1
Next i
        'nhex = Hex$(nhex)
      
ConverteBinDec = nmsg 'nhex

Ama .

       Obrigado pela ajuda.

 

Silva