Binaryworld - Dec2Any - Convert a decimal number to any other base ... [ VB -> Math ]

' convert a number to any base
' BASE can be in the range 2-36

Function Dec2Any(ByVal number As Long, ByVal base As Integer) As String
  Dim index As Long
  Dim digits As String
  Dim digitValue As Long

  ' check base
  If base < 2 Or base > 36 Then Err.Raise 5
  ' get the list of valid digits
  digits = Left("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", base)

  ' convert to the other base
  Do While number
    digitValue = number Mod base
    number = number \ base
    Dec2Any = Mid$(digits, digitValue + 1, 1) & Dec2Any
  Loop

End Function