RESPUESTA A LA PREGUNTA 1075 - VISUAL BASIC


No sé si existe alguna función pero te podría valer la siguiente:

Function DecimalABinario(ByVal valor As Long) As String

    ' Declaración de variables privadas a la función
    Dim mayor As Integer
    Dim retorno As String
    Dim a As Integer
        
    ' Localizamos el mayor exponente
    mayor = 0
    Do While True
        If 2 ^ mayor > valor Then
            If mayor > 0 Then
                mayor = mayor - 1
            End If
            Exit Do
        End If
        mayor = mayor + 1
    Loop
    
    ' Calculamos el valor binario
    retorno = ""
    For a = mayor To 0 Step -1
        If valor < (2 ^ a) Then
            retorno = retorno & "0"
        Else
            retorno = retorno & "1"
            valor = valor - (2 ^ a)
        End If
    Next a
    
    DecimalABinario = retorno

End Function

Te devuelve el binario en un "string" que, si quieres que tenga una longitud
determinada, deberas hacer un "padding", es decir rellenarlo con ceros a la izquierda.

Suerte.


Santiago Pastor
spastor@britishlife.es