Aproximar / Redondear Números Decimales

Al realizar un sistema de facturación para una empresa es de suma importancia redondear los decimales de forma correcta, donde no se pueden tolerar errores de redondeo.

A continuación se presenta un Método en que realiza esa función:

Dim resultado As Decimal ' Es el más lento de todos los tipos numéricos.Importancia de precisión frente a rendimiento.

resultado = Math.Round(3.45, 1) ' (Valor decimal, precisión decimal , forma de redondeo) 

'redondeo número par mas cercano. 

resultado = Math.Round(3.45, 1, MidpointRounding.ToEven) 

'redondeo número par mas cercano negativo                        

resultado = Math.Round(3.45, 1, MidpointRounding.AwayFromZero) 

'este codigo de ejemplo produce los siguientes resultados:
'
' 3.4 = Math.Round( 3.45, 1)
'-3.4 = Math.Round(-3.45, 1)
'
' 3.4 = Math.Round( 3.45, 1, MidpointRounding.ToEven)
' 3.5 = Math.Round( 3.45, 1, MidpointRounding.AwayFromZero)
'
'-3.4 = Math.Round(-3.45, 1, MidpointRounding.ToEven)
'-3.5 = Math.Round(-3.45, 1, MidpointRounding.AwayFromZero)

--
Nota: La información contenida en esta publicación, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en la presente publicación.