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]Preciso de ajuda com arredondamento

    Compartilhe

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    [Resolvido]Preciso de ajuda com arredondamento

    Mensagem  jorgek em Qui 13 Fev 2014, 09:40

    Bom dia, mestres!
    Venho com mais uma dúvida cruel! Smile
    É o seguinte:
    Tenho um formulário que quando a pessoa clica em um determinado botão, uma caixa de texto mostra o preço com desconto.
    O formulário que mostra o desconto está com este código:

    Código:
    VlDesc = Rounder(Preco - (Preco * 5 / 100), 1)

    Tenho também um relatório, baseado em uma consulta, que está com esta fórmula:

    Código:
    Preco100Kg: Arred(([Preço]-[Preço]*5/100);1)

    O que está acontecendo é que, no formulário, quando o último número da casa decimal do preço do produto é igual a 5, no formulário arredonda para cima e no relatório arredonda para baixo.

    Por exemplo:
    O preço de um produto é R$ 55,00. O preço com desconto para 100Kg fica R$ 52,25.
    Arredondando:
    No formulário fica: R$ 52,30.
    No relatório fica: R$ 52,20.

    Gostaria de saber como faço para resolver este problema.
    Desde já agradeço ajuda de todos!

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    [Re]Preciso de ajuda com arredondamento

    Mensagem  jorgek em Qui 13 Fev 2014, 09:58

    Consegui resolver o problema.
    É que o rapaz que eu substituí utilizou a função Rounder em vez Round.
    Alterei para Round e os preços estão batendo agora.

    Obrigado! Smile

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Preciso de ajuda com arredondamento

    Mensagem  Avelino Sampaio em Qui 13 Fev 2014, 10:01

    Olá!

    O round() tem este problema que é corrigido acrescentando um valor bem baixo.  Exemplo:

    Preco100Kg: Arred(([Preço]-[Preço]*5/100) + 0.000001 ;1)

    O resultado é este : 52,250001 que arredondando resulta em 5,30

    Sucesso!


    Última edição por Avelino Sampaio em Qui 13 Fev 2014, 10:21, editado 1 vez(es)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: [Resolvido]Preciso de ajuda com arredondamento

    Mensagem  jorgek em Qui 13 Fev 2014, 10:19

    Obrigado, mestre Avelino!

      Data/hora atual: Qui 08 Dez 2016, 00:05