Domingo, 6 de Outubro de 2024
Busca no site:
Ok
Home
Links
Soluções
Utilitários
Publicações
Curiosidades
Produtos
Diversões
Apps Android
Contato
Mapa do Site
Sobre Nós
©2024 CJDinfo®
Detalhe Solução
ASP: Conversão de Base Numérica (2 a 36)
:
'-------------------------------------------------------------- ' Retorna o Número decimal correspondente ' à String e base dadas (2 a 36) '-------------------------------------------------------------- function BaseToDec(Base, Dado) dim Digs, Dig, IExp, Saida, i, j Digs = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" IExp = 0 Saida = 0 for i = Len(Dado) to 1 step -1 Dig = -1 for j = 1 to Len(Digs) if mid(Dado, i, 1) = mid(Digs, j, 1) then Dig = j - 1 exit for end if next if Dig >= 0 then Saida = Saida + Dig * (Base ^ IExp) IExp = IExp + 1 end if next BaseToDec = Saida end function '-------------------------------------------------------------- ' Retorna a String da Base dada (2 a 36) correspondente ' ao número decimal dado '-------------------------------------------------------------- function DecToBase(Base, Dado) dim Valor, NumDig, Digs, Div, IDiv, Saida, i Valor = Dado Digs = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" NumDig = 0 while (Valor >= 1) Valor = Valor / Base NumDig = NumDig + 1 wend Valor = Dado Saida = "" if NumDig = 0 then NumDig = 1 for i = NumDig - 1 to 0 step -1 Div = Base ^ i IDiv = Int(Valor / Div) Saida = Saida & mid(Digs, IDiv + 1, 1) Valor = Valor - Div * IDiv next DecToBase = Saida end function
¤ Links Relacionados:
- Veja todas as soluções do site
Gostou? Compartilhe ou comente:
Nome:
Email:
Comentário:
Retornar