Home

Public Function Hex2Long( _
     ByVal strHexColor As String) As Long
 
    Dim lngColor As Long
     Dim strR As String
     Dim strG As String
     Dim strB As String
 
    If Left(strHexColor, 1) = "#" Then
         strHexColor = Mid(strHexColor, 2)
     End If
 
    strHexColor = UCase(strHexColor)
 
    strR = Mid(strHexColor, 1, 2)
     strG = Mid(strHexColor, 3, 2)
     strB = Mid(strHexColor, 5, 2)
 
    lngColor = CLng("&H" & strB & strG & strR)
 
    Hex2Long = lngColor
 
End Function

MsgBox Hex2Long("#FFFFFF")

Ähnliche Artikel

• Umwandeln String zu Hex
• Umrechnen Long-Farbwert in RGB-Farbwerte
• Umrechnen Long-Farbwert in HEX-Farbwert
• Twips und Millimeter?
• Berechnung von Zeiten über 24 Stunden