Convertir un nombre d'un base x en base 10
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 917 fois - Téléchargée 75 fois
Contenu du snippet
Les valeurs possible pour la base vont de 2 a 37.
Source / Exemple :
'***********************************************************************************************************
' Name : xBase2Dec
' Purpose : Convert a number from a base x to a decimal number.
' Syntax : xBase2Dec(Base, Number)
' Parameters : Base : Base of the number to convert
' Number : Number to convert
' Return : Decimal number
'***********************************************************************************************************
Public Function xBase2Dec(ByVal Base As Byte, ByVal Number As String) As String
Dim bytPos As Integer
Dim bytLen As Byte
Dim bytValue As Byte
Dim strChar As String * 1
Dim lngResult As Long
If Base > 1 And Base < 38 Then
bytLen = Len(Number)
For bytPos = bytLen To 1 Step -1
strChar = Mid(Number, bytPos, 1)
If IsNumeric(strChar) Then
bytValue = strChar
Else
bytValue = Asc(strChar) - 55
End If
If bytValue > Base Then
Err.Raise 6, , "The number to convert is bigger than the base."
End If
lngResult = lngResult + (bytValue * (Base ^ (bytLen - bytPos)))
Next
xBase2Dec = lngResult
Else
Err.Raise 6, , "Cannot convert from base " & Base
End If
End Function
A voir également
- Convertir un nombre d'un base x en base 10
- C / C++ / C++.NET : Convertir un nombre d'une base quelconque en base 10 - CodeS SourceS - Guide
- Convertir un nombre dans la base de votre choix (c) - Codes sources - C / C++ / C++.NET (Maths & Algorithmes)
- C / C++ / C++.NET : Affichage en base 2 d'un nombre donné en base 10 - CodeS SourceS - Guide
- Convertir un nombre decimal (base 10) en base x - Codes sources - Visual Basic / VB.NET (Maths)
- ASP / ASP.NET : Convertir un nombre de base 10 en base 36 et l'inverse - CodeS SourceS - Guide
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.