fonte: http://www.vbweb.com.br/dicas_visual.asp?Codigo=2086&Classificacao=4
Function Hex2Dec( hexadecimal As String)
Dim n As Long
Dim aux As Long
Dim valores As String
Dim decimal As Long
Dim fator As Long
valores = "0123456789ABCDEF"
n = 1
decimal = 0
For n = Len( hexadecimal ) To 1 Step -1
fator= 16 ^ ( Len( hexadecimal ) - n )
aux = Instr( valores, Mid( hexadecimal, n, 1 ) ) - 1
decimal = decimal + ( aux * fator )
Next
Hex2Dec = decimal
Exit Function
End Function
Nenhum comentário:
Postar um comentário