01. marts 2012 - 10:23Der er
5 kommentarer og 1 løsning
konvertere decimal til 62-tal system
Hej VBA eksperter
Med 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?
Der er vel noget med at oprette funktioner som håndterer regneopgaver som fx modulus i dit 62-talsystem med strings som input uden lave overflow på longs.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.