Convertir un nombre en chaîne de représentation binaire (base10 vers base2)
Contenu du snippet
Function ConvertBase10ToBase2(ByVal Value As Long) As String Dim lQuotien As Long, lRest As Long ' valeur positive ConvertBase10ToBase2 = vbNullString Value = Abs(Value) ' crée la chaîne Do lQuotien = Value \ 2 lRest = Value - (lQuotien * 2) ConvertBase10ToBase2 = CStr(lRest) & ConvertBase10ToBase2 Value = lQuotien Loop Until lQuotien = 0 End Function
Compatibilité : VB6, VBA
Disponible dans d'autres langages :
A voir également
- Convertir un nombre en chaîne de représentation binaire (base10 vers base2)
- Vba convertir nombre en texte - Forum Visual Basic
- Générateur de nombre ✓ - Forum PHP
- Sql convertir texte en nombre ✓ - Forum SQL
- Convertir un integer en string - Forum Visual Basic
- Conversion nombre en texte ✓ - Forum VBA Office (Excel, Word ...)
Du même auteur (PCPT)
-
Insérer des données dans un fichier
-
Retourner le Nième jour de la période (ex : 3ème lundi d'aout 2010)
-
Retourner le Nième jour de la période (ex : 3ème lundi d'aout 2010)
-
[vb2008] observer l'activité input (clavier souris) de l'utilisateur
-
[c#2008] observer l'activité input (clavier souris) de l'utilisateur
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.