USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página