VB.NET - Dezimalzahl in Basis (bis 36) umrechnen
Mit dieser Funktion können Dezimalzahlen in eine Basis (bis 36) umgerechnet werden
Aufruf:
Gruß, Chris
Mit dieser Funktion können Dezimalzahlen in eine Basis (bis 36) umgerechnet werden
VB.NET-Quellcode
- Function DEZtoBASIS(ByVal DEZ As Integer, ByVal BASIS As Byte) As String
- If BASIS < 0 OrElse BASIS< 2 OrElse BASIS> 36 Then Return "Fehler: Werte sind nicht korrekt"
- Dim ERG As String = "", ABC 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 DEZ = 0
- ERG = ABC (DEZ Mod BASIS) + ERG
- DEZ \= BASIS
- End While
- Return ERG
- End Function
Aufruf:
Gruß, Chris