konvertere decimal til 62-tal system
Hej VBA eksperterMed hjælp har jeg fået sammenstykket en funktion til at konvertere decimal tal til et talsystem med 62 forskellige cifre:
Function fullradix(Num As Long)
Dim Tmp As Long, Res As String, Dig As Integer
Tmp = Num
Res = ""
While Tmp > 0
Dig = (Tmp Mod 62) + 1
Tmp = Tmp / 62
Res = Mid("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", Dig, 1) & Res
Wend
fullradix = Res
End Function
Og det virker helt som det skal. Det eneste problem er at jeg gerne vil konvertere meget store tal (18-20 cifre decimal), og Long kan tilsyneladende ikke følge med.
Jeg har prøvet at ændre alle Long til Double, men så er der intet der virker...
Nogen forslag?