КАК ПЕРЕВЕСТИ RGB цвет в HTML цвет?

[step]

ЗДРАВСТВУЙТЕ!
Я как понимаю RGB цвет- в двоичной системе, а HTML в 16-чной, т.е. надо перевести из двоичной системы в 16-чную, подскажите как ЕТО СДЕЛАТЬ!
ОГРОМНОЕ ВСЕМ СПАСИБО!

[deepslam]

MsgBox Hex(RGB(255, 255, 255))

[Eugenio]

Код: Выделить всё

   
mLong = 16
mHex = Hex$(mLong)
MsgBox "0x" & mHex


[hCORe]

Нет, нет и ещё раз нет!

HTML-цвет выражается формулой вида:
#HRHGHB, где HR - это Hex(красный компонент), HG - Hex(зелёный компонент), а HB - Hex(синий компонент). Поэтому RGB-цвет надо сначала разделить на составляющие, а уже потом составить из них HTML-цвет

[ANDLL]

Иными словами:

Код: Выделить всё

Public Function WebColor(ByVal rg_ As Long) As String
Dim xR As Byte, xG As Byte, xB As Byte
xR = rg_ And &HFF
xG = (rg_ \ &H100) And &HFF
xB = (rg_ \ &H10000) And &HFF
WebColor = "#" & IIf(xR < &H10, "0" & Hex(xR), Hex(xR)) & _
    IIf(xG < &H10, "0" & Hex(xG), Hex(xG)) & _
    IIf(xB < &H10, "0" & Hex(xB), Hex(xB))
End Function

Фрагмент из одной моей проги