Impedir arredondamento.

Bom dia!

Estou com um grande problema no meu sisteminha de caixa, não estou conseguindo evitar arredondamento, fora que quero que os dados fiquem com 2 casas decimais, mas sem arredondamento.

Se alguem puder me ajudar agradeço muito

Já formatou o campo com duas casas decimais na tabela e no formulário?

sim

Esse campo é para moeda ?

isso, ele recebe valor em moeda(dinheiro)

Formatou ele para "Unidade monetária"?

não tenho a opção de unidade monetário so moeda

E ele está formatado como Moeda e mesmo assim não exibe no formato R$ 0,00?

ele aparece porem esta arredondando valor, e eu quero que o valor apareça sem arredondamento...

exemplo: 2,575 ele arrendonda para 2,58 e eu não quero quero q ele fique 2,57

entendeu...

Vanessa, ele só arredonda de 2,575 para 2,58, se você tiver defenido 2 casas decimais na tabela, se defenir "Moeda" e 3 casas decimais jamais arredondará.

Pelo que entendi, a colega quer arredondar mas para baixo, certo? Se for isso mesmo, pode tentar, no evento "Após atualizar" do campo ou outro evento que melhor convier:

Código:

If Mid(Me.NomeDoCampo, Len(Me.NomeDoCampo) - 2, 1) <> "," Then
    Me.NomeDoCampo = Me.NomeDoCampo - 0.01
    Me.NomeDoCampo = Format(Me.NomeDoCampo, "Currency")
End If

não realidade não quero q arrendonte, quero q ele aceite as duas casas decimais sem arredondamento tanto para mais como para menos

se ter 250,591 = 250,59
se ter 250,596 = 250,59

indiferente da 3 casa.

Vanessa

Use essa função:

Código:


Function Round(dblNumber As Double, IntDecimais As Integer) As Double
Dim dblFator As Double
Dim dblTemp As Double
dblFator = 10 ^ IntDecimais
dblTemp = dblNumber * dblFator + 0.5
Round = Int(dblTemp) / dblFator


Veja essa linha:

dblTemp = dblNumber * dblFator + 0.5

Onde:
Arrendonda sempre pra baixo (teu caso)

dblTemp = dblNumber * dblFator

0.5 = automatico - arrendonda pra cima ou pra baixo


Uso:
Round(caixadetextoOuVariável,2)


Abraços

Foi o que eu quis dizer mesmo. Arredondar os centavos e não para ficar sem casas decimais. No caso o exemplo que passei deve funcionar tambem. A única ressalva é que se não tiver centavo, deves digitar o 00: 2,00 por exemplo.

Oi criquio

Não testei o teu código, mas embora a função que enviei seja de arredondamento, do modo que está ela não arredonda, só retira a terceira casa decimal.

Abraços

Eu sei. Minha mensagem anterior foi para esclarecer para a Vanessa que a função não é para retirar os centavos e sim arrendondá-los para duas casas decimais. E tambem como não sei se terá sempre três casas decimais ou menos ou se pode ter mais de três casas decimais, fiz de modo que sempre arrendará os centavos para as duas primeiras casas decimais indiferente de quantas casas tenham.

migos ainda n consegui resolver, amanhã vou deixar o link para vc poderem ver a minha base.

E então, resolveu?

Não funciona
em outros projetos eu consegui evitar  o arredondamento, mas nesse aqui nenhum forma esta dando certro, mesmo trabalhando com numeros(double).
se ele pegar 26,69 ele já arredonda para 27,00

Vanessapfp...

aqui eu uso o seguinte...

tenho um preço que chamo de MULT100 que é tipo fixo com 0 casas decimais

tenho meu preço normal que chamo PRUNITCIVA que pode ter quantas casas decimais eu precisar

quando defino meu PRUNITCIVA eu também gravo na tabela o MULT100 = PRUNITCIVA * 100

ex: PRUNITCIVA = 8,5869

então MULT100 = 8,5869 * 100

MULT100 = 858 'grava sem casas decimais...

aí meu preço de venda depois de variáveis volta a ser:

PRVENDA = MULT100 / 100

PRVENDA = 858 / 100

PRVENDA = 8,58

entendeu?

funciona pra quantas casas decimais vc tiver, retornando duas casas sem arredondamento!

só trabalho assim por conta de erros nas cobranças e nas notas fiscais.