|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Conversão Hexadecimal -> Decimal
|
 |
|
|
|
Postada em 27/10/2003 por ~Ð@®£@Ñ
Uma função que faz a conversão de bases hexadecimal para decimal:
Function Hex2Dec( hexadecimal )
dim n, aux, valores, decimal, fator
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
End Function
|
|
|
|
|
