MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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
    avatar
    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    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.
    avatar
    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4394
    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: Qua 20 Set 2017, 20:51