MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Formatação de Variável Double com zeros à Direita.

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    [Resolvido]Formatação de Variável Double com zeros à Direita. Empty Formatação de Variável Double com zeros à Direita.

    Mensagem  Convidado 10/8/2013, 15:02

    Amigos.. tenho uma variável do tipo Double.. gostaria de após carregá-la formatar a mesma para que apresente uma certa quantidade de zeros à direita..

    O que ocorre é que da forma como estou tentando.. arredonda o valor do decimal:


    ValorTitulo = RsCliente!ValorVenda + RsCliente!CustoBoleto >>>>>>>  293,50
    ValorTitulo = CDbl(Format(ValorTitulo, "##########0000000000")) >>>>>>>> 0000000294



    Obrigado pela ajuda.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Formatação de Variável Double com zeros à Direita. Empty Re: [Resolvido]Formatação de Variável Double com zeros à Direita.

    Mensagem  Avelino Sampaio 10/8/2013, 15:28

    Coloca a variável ValorTipo como variant.

    pergunta:  o resultado tem que sair sempre com quantas casas ? 10

    exemplo:

    259,50 ::::> 0000025950
    1.200,00 ::::> 0000120000
    75,24 ::::>  0000007524

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº3

    [Resolvido]Formatação de Variável Double com zeros à Direita. Empty Re: [Resolvido]Formatação de Variável Double com zeros à Direita.

    Mensagem  Avelino Sampaio 10/8/2013, 16:22

    Bom, se o resulado for na padronização de 10 casas, minha sugestão é essa:

    Dim ValorTitulo As Variant
    ValorTitulo = RsCliente!ValorVenda + RsCliente!CustoBoleto
    ValorTitulo= String(10 - (Len(ValorTitulo) - 1), "0") & Replace(ValorTitulo, ",", "")
    MsgBox ValorTitulo

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº4

    [Resolvido]Formatação de Variável Double com zeros à Direita. Empty Re: [Resolvido]Formatação de Variável Double com zeros à Direita.

    Mensagem  Convidado 10/8/2013, 19:04

    Boa tarde Grande Avelino...
    Sua dica acima é válida.. Porém como estava utilizando a sua função de gerar código de barras do Itaú, não foi necessário utilizar...
    Eu necessitava disso no meu exemplo de geração de boletos para o HSBC.


    Obrigado.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº5

    [Resolvido]Formatação de Variável Double com zeros à Direita. Empty Re: [Resolvido]Formatação de Variável Double com zeros à Direita.

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 17/5/2024, 05:48