Cómo redondear hacia arriba en VBA, VB6 y VB.net con Round

Cómo redondear hacia arriba en VBA, VB6 y VB.net con Round

La función Round() devuelve un número redondeado al número de decimales especificado. Sin embargo, en ocasiones esta función no realiza la operación de manera correcta. En este artículo te enseñamos cómo solucionarlo empleando otra función.

¿Cómo utilizar la función Round()?

La función Round() consta de dos partes: la expresión numérica que se desea redondear y el número de posiciones decimales. A continuación, mostramos un ejemplo, en el cual podemos observar que no se realiza la operación de manera adecuada:

Round(0.15 , 1) = 0.2
Round(0.25 , 1) = 0.2
Round(0.35 , 1) = 0.4
Round(0.45 , 1) = 0.4

¿Qué función alternativa a Round() hay?

La siguiente función, llamada Redondeo(), no presenta este problema:

Private Function Redondeo(ByVal Numero, ByVal Decimales) 
Redondeo = Int(Numero * 10 ^ Decimales + 1 / 2) / 10 ^ Decimales 
End Function

En su lugar, nos da como resultado:

Redondeo(0.15 , 1) = 0.2
Redondeo(0.25 , 1) = 0.3
Redondeo(0.35 , 1) = 0.4
Redondeo(0.45 , 1) = 0.5

Lenguajes