Início![[Resolvido]Arredondar valor Empty](https://2img.net/i/empty.gif)
Assis 21/12/2011, 11:08Bom dia
Estou a precisar de ajuda neste arredondamento de um valor.
Segue exemplo
Obrigado
Estou a precisar de ajuda neste arredondamento de um valor.
Segue exemplo
Obrigado
3 participantes
[Resolvido]Arredondar valor
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
É o simples;
Me.PVP = Round(vbaRoundTO(dblNum, dblRoundTo, rUp) + Me.PreçoCusto1, 0)
Me.PVP = Round(vbaRoundTO(dblNum, dblRoundTo, rUp) + Me.PreçoCusto1, 0)
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Arredondar valor Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Bom dia JPaulo
Tentei e devolveu por exemplo 1.183,00 e neste caso eu queria ou 1.180,00 ou 1.190,00
Obrigado
Tentei e devolveu por exemplo 1.183,00 e neste caso eu queria ou 1.180,00 ou 1.190,00
Obrigado
.................................................................................
*** Só sei que nada sei ***
João afonso- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 396
Registrado : 24/05/2011
João Paulo desculpa a intromissão.
Assis veja este alteração feita no seu sistema.
Ex: caso o valor seja 10,50 vai ficar 10,00
caso o valor seja 10,55 vai ficar 11,00
a alteração foi feita na tabela no campo em questão.
Se a dezena for <= 5 fica o valor arredondado sem a fração
Se a dezena for > 5 fica o valor arredondado aumentando 1 antes da virgula como exemplo acima
Assis veja este alteração feita no seu sistema.
Ex: caso o valor seja 10,50 vai ficar 10,00
caso o valor seja 10,55 vai ficar 11,00
a alteração foi feita na tabela no campo em questão.
Se a dezena for <= 5 fica o valor arredondado sem a fração
Se a dezena for > 5 fica o valor arredondado aumentando 1 antes da virgula como exemplo acima
- Anexos
![[Resolvido]Arredondar valor Attachment](https://2img.net/i/fa/attachment.png)
Assis.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (44 Kb) Baixado 27 vez(es)
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
João Afonso
Obrigado pelo seu interese, mas o novo link que colocou aqui é igual ao que eu coloquei.
Os valores dão os mesmos.
E eu não quero 11,00
Obrigado
Obrigado pelo seu interese, mas o novo link que colocou aqui é igual ao que eu coloquei.
Os valores dão os mesmos.
E eu não quero 11,00
Obrigado
.................................................................................
*** Só sei que nada sei ***
Convidad- Convidado
Olá
Você controla as casas decimais do arredondamento no parâmetro da função:
Me.PVP = Round(vbaRoundTO(dblNum, dblRoundTo, rUp) + Me.PreçoCusto1, 0)
Experimente alterar de 0 para 2
Você controla as casas decimais do arredondamento no parâmetro da função:
Me.PVP = Round(vbaRoundTO(dblNum, dblRoundTo, rUp) + Me.PreçoCusto1, 0)
Experimente alterar de 0 para 2
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Norberto
Valeu a tentativa mas não resulta
Obrigado
Valeu a tentativa mas não resulta
Obrigado
.................................................................................
*** Só sei que nada sei ***
Convidad- Convidado
Tentou alterar para 3?
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Não resulta
Obrigado
Obrigado
.................................................................................
*** Só sei que nada sei ***
Convidad- Convidado
Função Round
Descrição
Retorna um número arredondado para um número especificado de casas decimais.
Sintaxe
Round(expression [,numdecimalplaces])
A sintaxe da função Round tem as seguintes partes:
Parte Descrição
expression Obrigatória. A expressão numérica que está sendo arredondada.
numdecimalplaces Opcional. Número indicando quantas casas à direita da decimal serão incluídas no arredondamento. Se for omitido, inteiros serão retornados pela função Round.
João afonso- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 396
Registrado : 24/05/2011
Assis,o comando do arredondamento esta no campo Arredondamento de = txtRoundTo
e tem como valor 10 coloque 1 e veja que muda o resultado
e tem como valor 10 coloque 1 e veja que muda o resultado
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Ok;
Regressando do almocinho:
Me.PVP = Int((vbaRoundTO(dblNum, dblRoundTo, rUp) + Me.PreçoCusto1) / 10) * 10
Na sala de Códigos tem o "Arredonda um Valor", é só conferir;
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access
Regressando do almocinho:
Me.PVP = Int((vbaRoundTO(dblNum, dblRoundTo, rUp) + Me.PreçoCusto1) / 10) * 10
Na sala de Códigos tem o "Arredonda um Valor", é só conferir;
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Então agora ´e que é boa tarde...
O almoço ajudou a relaxar e assunto resolvido
Obrigado e
Bom Natal
O almoço ajudou a relaxar e assunto resolvido
Obrigado e
Bom Natal
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Obrigado pelo retorno o forum agradece e Feliz Natal...
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...