hakuario respondió:
Implementa y aplica estas funciones en tu aplicación. 'Devuelve el entero más pequeño no menor que POR. 'Ejemplo: Ceiling(1.23) = 2, Ceiling(-1.23) = -1 Private Function Ceiling(ByVal POR As Double) As Long Ceiling = -Int(POR * (-1)) End Function...