7 lignes pour convertir un binaire en décimal

Commenter

Contenu du snippet

un tout petit code pour un petit service

Source / Exemple : 


Function ConvertisseurBinToDec(ChiffreBinaire As String) As Long

Dim i As Integer
For i = (Len(ChiffreBinaire) - 1) To 0 Step -1
ConvertisseurBinToDec = ConvertisseurBinToDec + (CInt(Right(ChiffreBinaire, 1)) * 2 ^ (29 - i))
ChiffreBinaire = Left(ChiffreBinaire, i)
Next i

End Function

Conclusion :


appeler la fonction en transmettant le valeur a convertir sous forme d'une String dans la variable "ChiffreBinaire" et récupérer la valeur dans "ConvertisseurBinToDec"
attention à la limite du type Long de "ConvertisseurBinToDec"

A voir également

S'inscrire maintenant

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.