Desconozco la existencia de esa función en VB 4, en 5 no se.

Les mando una "fatta in casa".

Function iToBin8 (iEnt As Integer) As String
   Dim i As Integer
   Dim iEl As Integer
   Dim s As String

   For i = 0 To 7

      'si se prefiere de 16 bits, usar For i = 0 To 15

      iEl = 2 ^ i
      If (iEnt And iEl) = iEl Then
         s = "1" & s
         'si se prefiere al reves usar s = s & "1"
      Else
         s = "0" & s
         'si se prefiere al reves usar s = s & "0"
      End If
   Next
   iToBin8 = s
End Function

Saludos.
----------------------------------------
Jorge R. Colaccini
E-mail: jorgerc@satlink.com
Rosario, Santa Fe, Argentina
----------------------------------------



-----Original Message-----
De: Luis Alberto Butrico (captura) <captura@bipbip.com.uy>
Para: vb-esp@ccc.uba.ar <vb-esp@ccc.uba.ar>
Fecha: Lunes 2 de Marzo de 1998 23:38
Asunto: (VB-ESP) (VB-ESP): Conversión de Decimales a Binarios


¿ Hay alguna función que dado un nro. decimal me devuelva un binario ? ¿ O
tendré que esribirla ?.
Encontre las Hex() y Oct() pero ninguna Bin().
Saludos muchos,
Alberto Butrico
opc@bipbip.com.uy
...labp