[Resolvido]Arredondamento com condição

Pessoal preciso criar uma condição pra arrendamento nesse select. Preciso que ele arredonde pra cima somente quando o resultado do IIF for decimal ex= 4,5 arredonda pra 5

Boa tarde,

Crie uma variável do tipo Inteiro para mostrar o resultado final ou use a função Round()

Segue exemplo:

Código:

Sub teste()
    Dim A As Double
    A = InputBox("Digite um numero: ", "")
    MsgBox Round(A)
End Sub

Caio
Ja tentei utilizar a função Round mas eu preciso criar uma condição de arredondamento somente para os decimais nao conseguir fazer isso. Saberia me dizer como chamo um decimal dentro do sql ex iif decimal...

Entendi,

Veja se atende:

Código:

SeImed([SeuCampo]-Int([SeuCampo])=0;[SeuCampo] & " é inteiro";[SeuCampo] & " é decimal")

Caio entendi seu raciocinio mas nao e bem isso que eu preciso preciso que ele arredonde o valor ja na minha consulta conforme a foto que enviei

Boa tarde,

Tente assim:

Código:

Iif([MOTO_BC3]-Int([MOTO_BC3])=0;[MOTO_BC3];Int([MOTO_BC3]))

Caso ainda não seja isso explique de forma mais clara...

Vou testar e ja te falo Caio!!!

Caio testei e da "erro de sintaxe na expressao da consulta"

Caio o codigo rodou o proble.a era ";" so que ele esta arredondando pra baixo, como faço para que o arredondamento seja pra cima?

Tenta acrescentar 0.5.

Iif([MOTO_BC3]-Int([MOTO_BC3])=0;[MOTO_BC3];Int([MOTO_BC3]+0,5))

Deu certo!!! Muito obrigado!

Boa tarde,
Sinalize o tópico como resolvido.