[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

Zahlensystemumwandlung

Sprache / Programm: VBA ab Office 97
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