Un programme en langage VBA qui convertit un nombre décimal U da

'********************************************************************************
 ' 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