• Home
 · 
• Math/Dates
 · 
• Advanced Base Converter

Advanced Base Converter

Updated code! This function converts numbers into any base, and any base into decimal! Works frek-in' awesome!

Assumes
Not all bases will work; there are not enough characters to be able to do every base. An error will occur when this happens.

Returns
' The two functions given are reversible. For example: ConvertToBase(45, 16) = "2D" ConvertFromBase("2D", 16) = 45

Side Effects
Will not (yet) deal with negative numbers, and rounds all numbers that are decimal.

Rate Advanced Base Converter

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Function ConvertToBase(DecNumber As Double, NewBase As Integer) As String
Dim ModBase As Double
 Do
 ModBase = CDbl(DecNumber - (Int(DecNumber / NewBase)) * NewBase)
 DecNumber = Int(DecNumber / NewBase)
 If ModBase > 9 Then ModBase = ModBase + 7
 ConvertToBase = Chr(ModBase + 48) & ConvertToBase
 Loop Until DecNumber = 0
End Function
Function ConvertFromBase(BaseNumber As String, OldBase As Integer) As Double
Dim i As Integer, LetterVal As Integer
 On Error Resume Next
 For i = 1 To Len(BaseNumber)
 LetterVal = Asc(Mid(BaseNumber, Len(BaseNumber) - i + 1, 1)) - 48
 If LetterVal > 9 Then LetterVal = LetterVal - 7
 If LetterVal > OldBase Then GoTo InvalidNumber
 ConvertFromBase = ConvertFromBase + (OldBase ^ (i - 1)) * LetterVal
 Next i
InvalidNumber:
End Function