Integer to boolean !!!

Question

Bonjour

Je souhaite trouver une fonction qui me rend un tableau de 16 bits quand je lui passe un integer

letoiia · Answer

'Fonction de conversion d'entier en binaire
Public Function IntToBin(ByVal V As Long, Optional NbCarac As Byte = 16) As String
On Local Error GoTo Gestion_des_Erreurs
'***********************************************
'Déclaration
  Dim I As Byte
  Dim NewV As Long
'***********************************************
'Debut du Code
  IntToBin = ""
  NewV = V
  For I = 1 To NbCarac
   IntToBin = CStr(NewV Mod 2) & IntToBin
   NewV = (NewV \ 2)
  Next I
  Exit Function
'*************************************************
'Gestion des Erreurs
Gestion_des_Erreurs:
  Select Case Err.Number
    Case Else
      IntToBin = Empty
  End Select
  Exit Function
  Resume
End Function

Letoiia

Integer to boolean !!!

1 réponse

Discussions similaires