Código de Visual Basic para Aplicaciones - Convertir un color en Decimal a su valor en hexadecimal para HTML

Val: 8

Convertir un color en Decimal a su valor en hexadecimal para HTML

Publicado el 19 de Abril del 2019 por Marga (4 códigos)

1.558 visualizaciones desde el 19 de Abril del 2019

Función para convertir un color decimal a su valor en hexadecimal para utilizar en HTML

Publicado el 19 de Abril del 2019

1.559 visualizaciones desde el 19 de Abril del 2019

Function Dec2HexColor(decColor As Long) As String

    If decColor > 16777215 Then decColor = 16777215

    If decColor < 0 Then decColor = 0

    Dec2HexColor = "#" & Right("00" & Hex((decColor Mod 256)), 2) & _

                         Right("00" & Hex((decColor \ 256) Mod 256), 2) & _

                         Right("00" & Hex(decColor \ 65536), 2)

End Function

Sub test()

    Debug.Print Dec2HexColor(vbRed)              'returns: "#FF0000"

    Debug.Print Dec2HexColor(vbGreen)            'returns: "#00FF00"

    Debug.Print Dec2HexColor(vbMagenta)          'returns: "#FF00FF"

    Debug.Print Dec2HexColor(12345678)           'returns: "#4E61BC"

    Debug.Print Dec2HexColor(0)                  'returns: "#000000"

    Debug.Print Dec2HexColor(RGB(255, 0, 0))     'returns: "#FF0000"

    Debug.Print Dec2HexColor(RGB(48, 151, 62))   'returns: "#30973E"

End Sub

No hay comentarios

http://lwp-l.com/s5262

Varios metodos para exportar datos de Excel a Access

Conectar a Access con VBA desde Word