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