1
Gracias

Unas palabras de agradecimiento nunca están de más.

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


1
Gracias

Unas palabras de agradecimiento nunca están de más.

Haz una pregunta
Nuestros contenidos son redactados en colaboración con expertos del ámbito tecnológico bajo la dirección de Jean-François Pillou, fundador de CCM.net y director digital en el Grupo Figaro. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.
El documento «VBA.VB6/.Net - función Round con redondeo hacia arriba o abajo» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (https://es.ccm.net/) como tu fuente de información.

0 Comentario