Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 259 fois - Téléchargée 63 fois
'*********************************************************************************************************** ' 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
Commentaires
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.