Convertir un nombre decimal (base 10) en base x

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 477 fois - Téléchargée 72 fois

Commenter

Contenu du snippet

Les valeurs possible pour la base vers laquelle se fait la conversion vont de 2 a 37.

Source / Exemple : 


'***********************************************************************************************************
' Name       : xDec2Base
' Purpose    : Convert a decimal number to a number in base x.
' Syntax     : xDec2Base(Base, Number)
' Parameters : Base     : Base to convert to
'              Number   : Number to convert
' Return     : Number in base 'Base'
'***********************************************************************************************************
Public Function xDec2Base(ByVal Base As Byte, ByVal Number As Long) As String
    Dim strResult As String
    Dim strR      As String
    
    If Base > 1 And Base < 38 Then
        Do
            strR = Number Mod Base
            If strR > 9 Then
                strR = Chr(55 + strR)
            End If
            strResult = strR & strResult
            Number = Number  Base
        Loop While Not Number = 0
        xDec2Base = strResult
    Else
        Err.Raise 6, , "Cannot convert to base " & Base
    End If
End Function

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.

Du même auteur (cs_Mr X)