Benutzung auf eigene Gefahr ! |
Beschreibung |
Wandelt eine Dezimalzahl in ein beliebiges anderes Zahlensystem zur Basis 2..9 um. |
VBA-Quelltext |
Public Function ZahlenSystem(Zahl As Integer, Basis As Byte) As Long Dim TempZahl As Integer, Rest As Byte, Ergebnis As String TempZahl = Abs(Zahl) While TempZahl > 0 Rest = TempZahl Mod Basis Ergebnis = Rest & Ergebnis TempZahl = (TempZahl - Rest) \ Basis Wend ZahlenSystem = IIf(Zahl < 0, -1, 1) * CLng(Ergebnis) End Function |
Argumente der Funktion/Prozedur |