Visual Basic - Será tan facil?

Life is soft - evento anual de software empresarial
 
Vista:

Será tan facil?

Publicado por Athlon (76 intervenciones) el 08/02/2001 00:31:14
Hola, mi duda es:

Como hacer una conversión de Decimal a --> Binario, Octal, Hexadecimal y viseversa? el VB tiene alguna función ya?

De antemano Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Será tan facil?

Publicado por Lino (37 intervenciones) el 09/02/2001 04:56:07
Hex(), Oct(), ...
(NSN)!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Será tan facil?

Publicado por José Luis (59 intervenciones) el 09/02/2001 20:01:04
Existen las funciones Hex() y Oct()

Pero si quieres para cualquier otra base usa las siguientes funciones .. solo le falta validar los valores de entrada y convertir el 10 en A, etc.. y el A en 10, etc..

REM funcion para convertir de base 10 a base n
Function b_n(n As Variant, b As Variant) As String
Dim t As String
Dim d As Long
t = ""
d = n
Do While True
If b > d Then
t = d & t
b_n = t
Exit Function
End If
t = Format(d - (Mid(Format(d / b, "#0.0"), 1, InStr(Format(d / b, "#0.0"), ".") - 1) * b)) & t
d = Mid(Format(d / b, "#0.0"), 1, InStr(Format(d / b, "#0.0"), ".") - 1)
Loop
End Function

REM funcion para convertir de base n a base 10
Function b_d(n As String, b As Variant) As String
Dim s As Long
Dim i As Integer
For i = 1 To Len(n)
s = s + Mid(n, i, 1) * (b ^ (Len(n) - i))
Next i
b_d = s
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar