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]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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    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)

    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: Sex 28 Jul 2017, 11:41