Zahlensystem konvertieren Konvertiert Zahlen vom Zehner-System in Zahlensysteme vom 2er - 16er System.
Autor:   sd	Bewertung:     [ Jetzt bewerten ]	Views:  12.799
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgender Funktion lässt sich eine Zahl im "Zehner-System" in ein anderes Zahlensystem konvertieren. Die Funktion unterstützt hierbei die Zahlensysteme 2er (binär) bis 16er (hexadezimal).

Private Function GetBits(ByVal bt As Long, _
  Optional ByVal system As Integer = 2) As String
 
  Dim out As String    ' Ausgabevariable
  Dim zahl As Long     ' Ausgangszahl
  Dim temp As Long     ' Temporäre Variable
 
  ' Zeichen der Zahlensysteme ( bis Hexadezimalsystem )
  Dim chrsys As String
 
  chrsys = "0123456789ABCDEF"
 
  temp = 1
  If (system > 16) Or (system < 2) Then
    ' Falsches Zahlensystem?
    GetBits = "Falsches Zahlensystem"
    Exit Function
  End If
 
  zahl = bt
 
  ' Solange bis Zahl = 0
  While zahl <> 0 
    ' Stelle der Zahl ermitteln
    temp = zahl Mod system
 
    ' Zahl anhängen
    out = Mid(chrsys, temp + 1, 1) & out
 
    ' Integerdivision
    zahl = zahl \ system
  Wend
 
  ' Rückgabewert
  GetBits = out
End Function