quinta-feira, 22 de novembro de 2012

Converter Hexadeximal para Decimal


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