ЗДРАВСТВУЙТЕ!
Я как понимаю RGB цвет- в двоичной системе, а HTML в 16-чной, т.е. надо перевести из двоичной системы в 16-чную, подскажите как ЕТО СДЕЛАТЬ!
ОГРОМНОЕ ВСЕМ СПАСИБО!
mLong = 16
mHex = Hex$(mLong)
MsgBox "0x" & mHex
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
Сейчас этот форум просматривают: AhrefsBot и гости: 98