VBA Tipp: HTML-Colorwert in Long-Farbwert umwandeln

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

Ich möchte einen HTML-Colorwert als Access-Farbwert (Datentyp Long) darstellen.

Lösung

Das geht mit der folgenden Umwandlungsroutine:

Public Function HTMLColorZuFarbe(ByVal colorwert As String) As Long
 
 'Wandelt einen HTML-Farbwert in einen Long-Farbwert um
 'Quelle: http://www.dbwiki.net/
 
 Dim strR As String
 Dim strG As String
 Dim strB As String
 
 colorwert = Replace(colorwert, "#", "")
 
 strR = Mid(colorwert, 1, 2)
 strG = Mid(colorwert, 3, 2)
 strB = Mid(colorwert, 5, 2)
 
 HTMLColorZuFarbe = CLng("&H" & strB & strG & strR)
 
End Function

Aufruf

'Ergebnis im Direktfenster anzeigen
Debug.Print HTMLColorZuFarbe("#AFFE01") 'Ergebnis 130735

Wiki-Links


Der Code wurde in Access 2000 erstellt.