[Resolvido]Arredondar em campo de relatorio

Num modulo novo, cole este codigo e salve com o nome que quiser:

Function arredondar(numero As Double) As Double
    If numero - Int(numero) > 0 Then
        arredondar = Int(numero) + 1
        Else: arredondar = numero
    End If
End Function



Agora é só chamar a função.
=arredondar([SuaCxTexto])
 
ou esta:
 
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
End Function
 
Chamar a função:
=Round([SuaCxTexto]; 0)