MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]converter moeda em texto com os zero apos a virgula

    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  ifahidalgo em 13/2/2020, 15:06

    Senhores

    Preciso de ajuda, tenho um campo em tabela moeda, e preciso pegar esse valor em moeda e transforma-lo em texto da seguinte forma

    valor 12.000,10

    preciso assim 1200010

    valor 1.000,00

    preciso assim 100000

    valor 250,55

    preciso assim 25055

    alguem para ajudar
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 13/12/2016

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  Alexandre Fim em 13/2/2020, 15:38

    Olá Ivan,

    Você quer transformar o valor do campo "Moeda" para "Texto" na própria tabela?
    Converter valores para gravar em arquivos .txt?

    O que gostaria de fazer?

    Por gentileza, seja mais específico.

    Att,


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  ifahidalgo em 13/2/2020, 15:43

    Na verdade não quero mexer na tabela, preciso pegar o valor em moeda e passar para string dentro de uma variável e manter as casas decimais mesmo com zero. que com essa string passarei para um txt por exportação.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 13/12/2016

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  Alexandre Fim em 13/2/2020, 15:59

    Entendi.

    Você pode utilizar o REPLACE na instrução que vai gerar o .txt
    Segue exemplo:
    Código:


    Replace(Replace("1.000,00",",",""),".","")


    Espero ter ajudado.

    Abs


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  ifahidalgo em 13/2/2020, 16:48

    fiz o procedimento mas o resultado foi que ele eliminou os "0" depois da virgula.

    0000000004300012
    0000000000210005
    0000000000003300


    e preciso que fique assim

    0000000004300012
    0000000002100050
    0000000000330000
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 13/12/2016

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  Alexandre Fim em 13/2/2020, 18:18

    Olá Ivan,

    Fiz um pequeno exemplo.
    Acredito que vai te ajudar.

    [Resolvido]converter moeda em texto com os zero apos a virgula Valorc11


    OBS.: Sempre que for utilizar campos na tabela de valores monetários, utilize o campo Tipo "Número', na propriedade Tamanho do Campo, utilize "Duplo", e na propriedade "Casas Decimais" utilize 2.

    Boa sorte
    Anexos
    [Resolvido]converter moeda em texto com os zero apos a virgula AttachmentConverterMoedaParaTexto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 1 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  ifahidalgo em 13/2/2020, 19:20

    Perfeito. Obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 13/12/2016

    [Resolvido]converter moeda em texto com os zero apos a virgula Empty Re: [Resolvido]converter moeda em texto com os zero apos a virgula

    Mensagem  Alexandre Fim em 13/2/2020, 20:39

    Valeu Ivan...
    Boa sorte
    Abraço


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 10/8/2020, 06:37