[Resolvido]Arredondar resultado para cima - access

Boa tarde!

Preciso de uma ajuda...
Tenho meu relatório e um campo será o resultado de uma divisão.
Preciso saber como faço para arredondar para cima um valor ?
100 / 12 = 8,3333 ( gostaria de arredondar para cima 9 )
Isso no Access...

Muito obrigado pela atenção.
Abraços,
Marco Aurélio

Olá,
Experimente a função VAL do Access.

Exemplo não testado:
Val(nomeCampo)
Abraço

Obrigado pela atenção ahteixeira.
Mas infelizmente ele arredonda para baixo, e estou precisando arredondar para cima.

Desde já agradeço a dica!
Abraços

Olá,
como é para arredondar para cima e pretende sempre o inteiro, tente adicionando sempre .5

Teste assim:

Código:

Round([CampoCalculado] + .5, 0)

Teste na janela imediata:

Código:

?Round(8.3333 + .5, 0)

Abraço

Obrigado ahteixeira....
Consegui achar um jeito de arredondar o resultado...
Valeu..

Abração.

Olá Marco,
Se não usou desta forma, pode partilhar a sua solução?
Os utilizadores do fórum agradecem.

Não se esqueça de dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

Boa tarde a todos.

Não sei se foi essa a solução encontrada, mas gostaria de compartilhar minha solução para o problema.

Creio que a melhor estratégia é somar 1 ao resultado do arredondamento.

Experimente esta função:


Public Function ArredondarAcima(varExpress As Variant) As Long

Dim intResult As Variant
Dim intRedon As Integer

If IsNull(varExpress) Then
intResult = ""

Else

intRedon = CInt(varExpress)

If varExpress > intRedon Then
intResult = intRedon + 1

Else
intResult = CInt(varExpress)

End If

End If

ArredondarAcima = intResult

End Function



Observe que, caso o resultado da expressão for negativo (-19,9), a função vai arredondar igualmente para cima (-19). Se o resultado for positivo (19,9) o arredondamento será para 20, ok?

Olá Jair, obrigado por partilhar.
Interessante a função no caso dos negativos.
Ficamos aguardar o retorno do Marcos e que não se esqueça de dar o tópico como resolvido.
Abraço

Boa tarde a todos!

Precisei fazer este arredondamento também, porem em uma consulta. É resolvi da seguinte forma.

Código:

SeImed([CampoValor]>Int([CampoValor]);Int([CampoValor])+1;Int([CampoValor]))

No meu caso resolveu. Foram arredondados todos os valores para cima.

Exp: 16,48 para 17
16,75 para 17

Independente se é acima de 0,5 ou abaixo ele sempre arredonda para cima

Marco

Se o tópico está resolvido, por favor, coloque o resolvido no título do mesmo.

Obrigado ao amigos BigFill e Jair Martins por partilhar seus conhecimentos.

[ ]'s

Obrigado pela ajuda de todos e desculpa pela falta de atenção... tive problemas de familia e fiquei afastado...