Get RGB colour

[June7]

#FFD700 in BackColor shows correct color. In a conversion calculator FFD700 returns decimal 16766720. That decimal does not return correct RGB(). Swap FF and 00 for D7FF in calculator and that returns 55295 which does return correct RGB() with latest code. All the decs I have in table now return correct RGB. Nice work Dave. Hopefully I can remember all this next time it comes up.



Stumbling block is starting with color code #xxxxxx and trying to get Decimal then RGB. Simple helper function.

Function ColorHexToDec(Hex As String) As Long
'convert 6 character Hex color code to decimal
Dim r As String, g As String, b As String
Hex = Replace(Hex, "#", "")
r = Replace(Right(Hex, 2), "0", "")
g = Mid(Hex, 3, 2)
b = Left(Hex, 2)
ColorHexToDec = CDbl("&H" & r & g & b)
End Function

[davegri]

Hopefully I can remember all this next time it comes up.

I keep code like this in my MZTOOLS code library.

[June7]

I have the code, it's just remembering why had to build it the way it is.

[davegri]

Beating a dead horse, this code checks itself by converting the calculated decimal value back to hex and comparing it to the original function argument.

Function HexToDec(Hx As String) As Long
    'convert Hex color code to decimal
    Dim r As String, g As String, b As String, chk As String
    If Len(Hx) <> 6 And Len(Hx) <> 7 Then
        MsgBox "Input error to function HexToDec()" & vbCrLf & vbCrLf _
        & "The hex value must be 6 characters long." & vbCrLf _
        & "It optionally may have '#' on the left side making it 7 characters long.", _
        vbOKOnly + vbInformation, " C H E C K   F O R M A T "
        Exit Function
    End If
    Hx = UCase(Replace(Hx, "#", ""))
    r = Left(Hx, 2)
    g = Mid(Hx, 3, 2)
    b = Right(Hx, 2)
    chk = Hex(("&H" & r & g & b))   'convert result back to decimal and
    If chk <> Hx Then               'compare with original input parameter
        MsgBox "A conversion error has occured in function HexToDec()"
    Else
        HexToDec = ("&H" & r & g & b)
    End If
End Function

[isladogs]

My Colour Converter app gives the same results as quoted by @Micron in post #14

Seems I read somewhere that only the VB colors have &H values and my testing supports.

Disagree. All colours can be described using HEX, RGB & OLE values.

[June7]

Apparently had not tested all 8 &H codes in my table and turns out had some wrong. Fixed Green, Blue, Yellow, Magenta but Green and Yellow along with Gold still won't work.

Okay, not understanding &H codes and will ignore.

[Bulzie]

This is another site I have used for colors https://www.endprod.com/colors/