Tipp 8.9 - Hex-Wert nach Long

Wie kann ich einen Hex-Wert in einen Long konvertieren?

Mit dieser Funktion können Sie einen Hex-Wert in einen Long konvertieren. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Function Hex2Long(ByVal sHexValue As String) As Long
'// -----------------------------------------------------
'// Methode:   | Hex-Wert in Long konvertieren
'// -----------------------------------------------------
'// Parameter: | sHexValue - Hex-Wert als String
'// -----------------------------------------------------
'// Rückgabe:  | Long-Wert
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    If UCase(Left(sHexValue, 2)) <> "&H" Then
        sHexValue = "&H" & sHexValue
    End If
    Hex2Long = CLng(sHexValue)
 
End Function


Zurück Tipp 8.8 - Zeichen ermitteln | Inhalt | Tipp 8.10 - String-Umwandlung Weiter