Redondear hacia arriba

[xavi]

Palabras clave: redondear, arriba
Autor: Experiencia propia

Necesito emular el funcionamiento de MULTIPLO.SUPERIOR.MAT de Excel en Access. Dado que no encuentro una función o comando que lo haga, me creo una pequeña función:

Código: [Seleccionar]

Function RedondeaArriba(dblNumero As Double) As Long
    ' Función que toma un número con decimales y lo devuelve sin decimales como Long
   
    RedondeaArriba = Int(dblNumero) + Abs(dblNumero > Int(dblNumero))

End Function