Un programme en langage VBA qui convertit un nombre décimal U da
Fermé
advilcaps
-
20 nov. 2015 à 02:16
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 20 nov. 2015 à 08:28
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 20 nov. 2015 à 08:28
A voir également:
- Un programme en langage VBA qui convertit un nombre décimal U da
- Ù majuscule - Guide
- Langage ascii - Guide
- Programme demarrage windows 10 - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Fichier ouvert dans un autre programme - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
20 nov. 2015 à 08:28
20 nov. 2015 à 08:28
Bonjour,
Ce code réalise ce que tu souhaites.
Ce code réalise ce que tu souhaites.
'********************************************************************************
' NAME: DecToBase
'********************************************************************************
' FUNCTION: Converts a base n number to a decimal one. Base can be between 2 and
' 36. Number can be up to 15 digits as a number, longer as a string.
' Outputs a string value.
'********************************************************************************
' AUTHOR: Jeff Jenkins - February 2011
'********************************************************************************
Function DecToBase(ByVal strBaseNumberToConvert As String, ByVal intBase As Integer) As String
'********************************************************************************
' Declare variables
'********************************************************************************
Dim dblRemainder As Double
Dim strRemainderChar As String
Dim dblLeftToDivide As Double
'********************************************************************************
' Initialise variables
'********************************************************************************
dblLeftToDivide = Val(strBaseNumberToConvert)
DecToBase = ""
'********************************************************************************
' Raise error if base 36 or number is greater than 15 digits
'********************************************************************************
If intBase > 36 Or Len(strBaseNumberToConvert) > 15 Then Err.Raise 5
'********************************************************************************
' Loop around building the number converted to base n as we go
'********************************************************************************
While dblLeftToDivide > 0
dblRemainder = dblLeftToDivide - Int(dblLeftToDivide / intBase) * intBase
strRemainderChar = Mid$("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", dblRemainder + 1, 1)
DecToBase = Trim(strRemainderChar) & DecToBase
dblLeftToDivide = Int(dblLeftToDivide / intBase)
Wend
End Function
