Luego de investigar en varios repositorios y sitios finalmente descubrimos la resolución que te compartiremos aquí.
Solución:
VBA utiliza el redondeo de banqueros en un intento de compensar el sesgo de siempre redondear hacia arriba o hacia abajo en .5; puedes en su lugar;
WorksheetFunction.Round(cells(1,1).value * cells(1,2).value, 2)
Pruebe esta función, está bien redondear un doble
'---------------Start -------------
Function Round_Up(ByVal d As Double) As Integer
Dim result As Integer
result = Math.Round(d)
If result >= d Then
Round_Up = result
Else
Round_Up = result + 1
End If
End Function
'-----------------End----------------
Si desea redondear hacia arriba, utilice la mitad de ajuste. Sume 0.5 al número a redondear y use la función INT().
respuesta = INT(x + 0.5)
Puedes sustentar nuestra ocupación añadiendo un comentario o dejando una valoración te damos la bienvenida.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)