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

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

Hexadezimalzahl in Binärzahl

Sprache / Programm: Access ab Version 2000
Beschreibung

Wandelt eine Hexadezimalzahl in eine Binärzahl um.

VBA-Quelltext
Public Function Hex2Bin(ByVal HexZahl)
    Dim i As Integer, Pos As Integer
    Const HexZiffern As String = "0123456789ABCDEF"
   
    ' Null und leere Werte geben keinen Rückgabewert
    If Len(Nz(HexZahl)) = vbNullString Then Exit Function
   
    HexZahl = UCase(CStr(HexZahl))
    For i = 1 To Len(HexZahl)
        Pos = InStr(1, HexZiffern, Mid(HexZahl, i, 1))
        If Pos < 1 Then
            ' Fehler, falls unzulässiges Zeichen gefunden
            Hex2Bin = CVErr(13)
            Exit Function
        End If
       
        Pos = Pos - 1
        Hex2Bin = Hex2Bin & Sgn(Pos And 8)
        Hex2Bin = Hex2Bin & Sgn(Pos And 4)
        Hex2Bin = Hex2Bin & Sgn(Pos And 2)
        Hex2Bin = Hex2Bin & Sgn(Pos And 1)
    Next i
   
    ' Vornullenunterdrückung
    While Left(Hex2Bin, 1) = "0"
        Hex2Bin = Mid(Hex2Bin, 2)
    Wend
    If Len(Hex2Bin) = 0 Then Hex2Bin = "0"
End Function
Argumente der Funktion/Prozedur

HexZahl

String, der eine Hexzahl repräsentiert. Keine Typspezifikation wie h, 0x oder 0h erlaubt

Rückgabewert

Binärzahl als String