[Resolvido]Como faço para arredondar valores

Pessoal,

Gostaria de sua ajuda, estou precisando arredondar um valor de um campo no access.

0,16575 para 0,17

No evento "Após atualizar" da sua caixa de texto, coloque:

Me.NomeDaCaixaTexto = Round(Me.NomeDaCaixaTexto, 2)

Bom dia Criquio

E para arredondar 6456,00 para 6460,00
8327,00 para 8330,00
8501,00 para 8500,00

Em que o numero da unidade ( será sempre 0 Zero) ou seja o primeiro numero que fica ao lado esquerdo da virgula
Será possivel ?

Agradeço

Bom dia Assis;

Pelas funções internas do Access de Arredondamento, você não chega ao resultado.

Só por código ou directo na consulta assim;

Por código:
Num modulo novo, cole e salve:

Public Function ArredondaSemDecimais(value As Double, Precisao As Double) As Double
'By JPaulo MaximoAccess ® 2010
ArredondaSemDecimais = Int(value / Precisao + 0.5) * Precisao
End Function

Num campo vazio da sua consulta, coloque assim;

Resultado: ArredondaSemDecimais([SeuCampo];10) & ",00"


Directo na consulta:

Resultado: Int([SeuCampo]/10+0,5)*10 & ",00"

Ou

Resultado: Format(Int([xxx]/10+0,5)*10;"#,00")


Int e Fix são funções de arredondamento útil, que lhe dão a parte inteira de um número.

Int arredonda para baixo ou para cima - Int (3,5) = 3, Int (-3,5) = -4

Fix arredonda para zero - Fix (3,5) = 3, Fix (-3,5) = -3

Há também as funções de coerção, em particular o CInt CLng, que tenta coagir um número para um tipo inteiro ou um tipo de comprimento (são números inteiros entre -32.768 e 32.767, anseia-se entre -2, 147.483.648 e 2.147.483.647). Estes arredondam, tanto para o número inteiro mais próximo como o arredondamento para cima de .5 - CInt (3,5) = 4, Cint (3,49) = 3, CInt (-3,5) = -4, etc

Boa tarde JPaulo

Utilizei esta " Resultado: Int([SeuCampo]/10+0,5)*10 & ",00" ".

Fez muito jeito pois eu tenho uma tabela com milhares de produtos.
E tenho uma rotina em que informo num campo o valor percentual (Exemplo 7%)a aumentar em todos os produtos, e ao clikar num botão de comando a rotina executa a operação para todos os produtos automaticamente, e rápidamente.

Funfa perfeitamente

Um bom fim de semana ..... e Obrigado

Boa noite a todos!

Gostaria de arredondar para baixo um campo calculado em uma consulta access (Access 2016 / Windows 10).

Exemplos do que pretendo:

3,0555 = 3,05
7,7221 = 7,72
0,3834 = 0,38
0,2982 = 0,29

Espero que me consigam ajudar.

Grato pela vossa atenção.

João Matos Lousa

Boa noite novamente,

Consegui o que pretendia e se ajudar alguém aqui do fórum aqui fica a fórmula que utilizei.

Fix((-[Quantidade]*[Valor Unitário]*[Taxa de Liquidação])*100)/100

Obrigado e sucesso a todos.

João Matos Lousa

Obrigado pelo retorno o forum agradece.

J Paulo, não consegui resolver.
Já havia tentado visto esse tópico.

Vou procurar mais, pra encontrar a solução.
Obrigado.