Conversioni [VB]

[mr_chiocco]

Esiste un comando per convertire in binario un numero decimale o devo farmi per forza la funzione?

[Andrea Simonassi]

http://forum.html.it/forum/showthrea...hreadid=127829

Copia e incolla la funzione Bin postata da Sebamix

[Mabi]

Private Function Bin(ByVal Numero As Double) As String
Dim Num1 As Double
Dim Num2 As Double

Num2 = Int(Numero)
Num1 = Int(Numero)
Do Until Num1 = 0
  Num2 = Num2 / 2
  Num1 = Num1 \ 2
  If Num1 = Num2 Then
    Bin = "0" & Bin
  Else
    Bin = "1" & Bin
  End If
  Num2 = Fix(Num2)
Loop
End Function