©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:

Retornar