Function ConvertBase10ToBase2(ByVal Value As Long) As String Dim lQuotien As Long, lRest As Long Dim sRet As String = String.Empty ' valeur positive Value = Math.Abs(Value) ' crée la chaîne Do lQuotien = Value \ 2 lRest = Value - (lQuotien * 2) sRet = String.Concat(lRest.ToString, sRet) Value = lQuotien Loop Until lQuotien = 0 Return sRet End Function
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.