[VB6] - Convertire in binario

[buba88]

esite una funzione che converte un numero in binario?

[xegallo]

Public Function BinToDec(s As String) As Integer
    
    Dim i As Integer
    
    
    BinToDec = 0
    For i = Len(s) To 1 Step -1
        BinToDec = BinToDec + Val(Mid$(s, i, 1)) * 2 ^ (Len(s) - i)
    Next i
    
    Exit Function
    
BinToDecError:
    BinToDec = 0
    
End Function

Public Function DecToBin(i As Integer) As String
    Dim q As Integer, r As Integer
    q = i
    Do While q <> 0
        r = q Mod 2
        q = q \ 2
        DecToBin = CStr(r) & DecToBin
    Loop
    Exit Function
DecToBinError:
    DecToBin = ""
End Function

[buba88]

be senza offessa il modo per trasformare un numero in binario lo sapevo volevo solo sapere se c'era già una funzione già fatta, cmq grazie per averla scritta tu mi hai risparmiato la fatica