Dec2Any – Convert a decimal number to any other base

Dec2Any – Convert a decimal number to any other base

' convert a positive number to any base' BASE can be in the range 2-36Function Dec2Any(ByVal number As Long, ByVal base As Short) As String    Dim index As Integer    Dim digitValue As Integer    Dim res As New System.Text.StringBuilder()    Const digits As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"    ' check base and value    If number < 0 Then        Throw New ArgumentException _            ("The value to be converted must be positive")    ElseIf base < 2 Or base > 36 Then        Throw New ArgumentException("Base must be in range 2-36")    End If    ' convert to the other base    Do While number        digitValue = number Mod base        number = number  base        ' append this digit in front of current result        res.Insert(0, digits.Chars(digitValue))    Loop    Return res.ToStringEnd Function


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist