Conversão de base

O amigo Anarfa do news mandou a rotina abaixo que permite fazer conversão de base de decimal para binário, octal, hexadecimal, etc. Na verdade, permite que a base seja um número entre 2 e 35, o que é mais do que suficiente para as aplicações corriqueiras.

Function N2Y(Nv, Bv)
Dim ys, y1, n1, b1, r1
ys = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
y1 = "": n1 = Nv: b1 = Bv
Do While n1 <> 0
  r1 = n1 Mod b1
  n1 = n1 \ b1
  y1 = Mid(ys, r1 + 1, 1) & y1
Loop
if Nv = 0 then
   N2Y = 0
else
   N2Y = y1
end if
End Function

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...