Dezimalzahl in Zahl der Basis b < 37 konvertieren

1
2
3
4
5
6
7
8
9
10
11
12
13

Function dec2any(ByVal n As Integer, ByVal base As Byte) As String
    If n < 0 Then Return "-" & dec2any(-n, b)
    If base < 2 OrElse base > 36 Then Return "ValueError"
    Dim str As String = "", z As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9",
        "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}

    While Not n = 0
        str = z(n Mod base) & str
        n \= base
    End While

    Return str
End Function