VBA.VB6/.Net - función Round con redondeo hacia arriba o abajo
La función Round() no redondea bien para los números de la forma (2a + 0,5) x 10^-n (redondeados hacia abajo)
En cambio, los números de la forma (2a - 0,5) x 10^-n normalmente son bien redondeados hacia arriba.
Por ejemplo:
Round(0.15 , 1) = 0.2
Round(0.25 , 1) = 0.2
Round(0.35 , 1) = 0.4
Round(0.45 , 1) = 0.4
La función Redondeo que veremos a continuación no presenta este problema:
Redondeo(0.15 , 1) = 0.2
Redondeo(0.25 , 1) = 0.3
Redondeo(0.35 , 1) = 0.4
Redondeo(0.45 , 1) = 0.5
Private Function Redondeo(ByVal Numero, ByVal Decimales)
Redondeo = Int(Numero * 10 ^ Decimales + 1 / 2) / 10 ^ Decimales
End Function
Consulta también
- VBA.VB6/.Net - función Round con redondeo hacia arriba o abajo
- VBA/VB6 - Carpeta Mis documentos + Variables de entorno » Fichas prácticas - Visual Basic
- VBA VB6 - Leer todos los archivos, carpetas y subcarpetas » Fichas prácticas - Ofimática
- VBA VB6 - Cuando el test DIR (Directorio) se cuelga! » Fichas prácticas - Excel
- VBA VB6 - Forzar el despliegue de un ComboBox » Fichas prácticas - Ofimática
- Pantalla al revés, ¿cómo arreglarlo? (Resuelto) » Foros - Windows
Artículo original escrito por deri58. Traducido por Carlos-vialfa.
Última actualización: 31 de agosto de 2010 a las 20:39 por Carlos-vialfa.