Dos cosas (Juntar numero y pasar de binario a decimal)

mattias_vb
17 de Agosto del 2009
Buenas a toda la comunidad, tengo dos pequeñas dudas que espero puedan explicarme. La primera es que tengo que unir dos numeros, supongan 17 y 23, en una variable, pero no hacer 17+23, sino "juntar" esos dos y que me quede 1723 (por poner un ejemplo) y ese numero lo guarde en una variable.


La otra cuestion, es como hago para pasar, suponganse yo tengo en una variable el numero 00010010 (binario) y quiero guardarlo en otra variable pero en decimal (pasar ese numero a decimal) ?


Muchas Gracias, de enserio!


Saludos.

mvallejos
17 de Agosto del 2009
1er parte

Dim Nro1 as Long,Nro2 as Long,Resultado as Long

Nro1 = 17
Nro2 = 23
Resultado = Nro1 * 100 + Nro2 ' 1723
O bien
Resultado =Val(Nro1 & "" & Nro2)

Lo otro lo puede solucionar con un bucle for

Dim CadBin = "00010010"

Resultado=0
j=0
For i = Len(CadBin) To 1 Step -1
j=j+1
Resultado = resultado + 2 * Val(Mid(Cadbin,i,1))^j
Next i

Vas multiplicando el digito poe 2 elevado a la potencia del iterador

Saludos