devxlogo

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

devx-admin

Share the Post: