Hexadezimalzahl in Dezimalzahl

Sprache / Programm: Access ab Version 2000

Beschreibung

Wandelt eine ganzzahlige Hexadezimalzahl in eine Dezimalzahl um.

VBA-Quelltext

Public Function Hex2Dec(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
' Umwandeln In Großbuchstaben
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
Hex2Dec = CVErr(13)
Exit Function
End If
Hex2Dec = Hex2Dec * 16 + Pos - 1
Next i
End Function

Argumente der Funktion/Prozedur

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

Rückgabewert

Dezimalzahl

Anwendungsgebiete, Fehler und Warnungen

Nur positive und ganze Hexzahlen werden akzeptiert.