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


4 participantes

    Impedir arredondamento.

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 15:23

    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

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 21/5/2012, 15:24

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 15:33

    sim
    avatar
    Convidad
    Convidado


    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Convidad 21/5/2012, 15:39

    Esse campo é para moeda ?

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 16:20

    isso, ele recebe valor em moeda(dinheiro)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 21/5/2012, 16:25

    Formatou ele para "Unidade monetária"?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 16:28

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 21/5/2012, 16:33

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 16:37

    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...
    avatar
    Convidad
    Convidado


    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Convidad 21/5/2012, 17:17

    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á.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 21/5/2012, 17:38

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 18:50

    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.
    avatar
    Convidad
    Convidado


    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Convidad 21/5/2012, 19:15

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 21/5/2012, 19:29

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Convidad 21/5/2012, 20:05

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 21/5/2012, 20:55

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Vanessapfp 21/5/2012, 20:58

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  criquio 2/6/2012, 15:57

    E então, resolveu?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  crysostomo 1/2/2023, 18:36

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ribeiroguaruja
    ribeiroguaruja
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 30/05/2015

    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  ribeiroguaruja 1/2/2023, 20:35

    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.


    .................................................................................
    affraid

    Conteúdo patrocinado


    Impedir arredondamento. Empty Re: Impedir arredondamento.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 03:24