MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Converter valor decimal para Hexadecimal (HTML) valor da cor

    Compartilhe

    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 05/03/2013

    [Resolvido]Converter valor decimal para Hexadecimal (HTML) valor da cor

    Mensagem  Hephraim BF em Sex 07 Ago 2015, 23:10

    Olá!

    Tenho o valor da cor da forma como é tratada no vba, por exemplo: 2366701 e preciso que ela fique no formato html: #ED1C24, como devo proceder?

    Grato!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Converter valor decimal para Hexadecimal (HTML) valor da cor

    Mensagem  ahteixeira em Sab 08 Ago 2015, 15:30

    Olá Efraim, veja a dica nº 34 do Mestre Avelino no link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 05/03/2013

    Re: [Resolvido]Converter valor decimal para Hexadecimal (HTML) valor da cor

    Mensagem  Hephraim BF em Sab 08 Ago 2015, 17:37

    Valeu ahteixeira

    Já havia encontrado essa dica do Avelino, porém, não consigo adaptar para minha necessidade, pois ela converte de Hexadecimal para Decimal e o que estou precisando é o inverso disso.
    Já tentei de várias maneiras mas não ficou nem parecido com o que preciso. Não sei se é por falta de luz e, por enquanto, não consegui o resultado que esperava.

    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 05/03/2013

    Encontrei a solução

    Mensagem  Hephraim BF em Sab 08 Ago 2015, 18:16

    Encontrei esse código em outro fórum de Access, perfeito!

    Código:
    Function HtmlRGB(nRGB As Long) As String

        HtmlRGB = _
            Hex(nRGB And &HFF&) & _
            Format(Hex((nRGB And &HFF00&) \ &HFF&), "00") & _
            Format(Hex((nRGB And &HFF0000) \ &HFF00&), "00")

    End Function

    Usuário: T-Shooter
    Link: [Você precisa estar registrado e conectado para ver este link.]

    Na medida certa.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Converter valor decimal para Hexadecimal (HTML) valor da cor

    Mensagem  ahteixeira em Sab 08 Ago 2015, 18:19

    Olá, tente primeiro converter para RGB, veja exemplo no link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    depois aplique a técnica do Mestre Avelino.
    Abraço

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Converter valor decimal para Hexadecimal (HTML) valor da cor

    Mensagem  ahteixeira em Sab 08 Ago 2015, 18:22

    Valeu, ignore mensagem anterior.
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 14:12