Ver Mensaje Individual
  #2 (permalink)  
Antiguo 20/01/2011, 09:13
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 6 meses
Puntos: 53
Respuesta: Redondear decimales

Hola, lo que necesitas es la funcion Round que te permite redondear una cifra y decirle a cuantos decimales debe truncarla.

De todos modos, cuidado con el Round porque utiliza el denominado redondeo estadístico que no redondea siempre de la misma manera que el conocido redondeo matemático en el que del 0 al 4 es por menor y del 5 al 9 por mayor

En todo caso, puedes crearte en un módulo esta funcion para compartirla en todo el programa, yo la utilizo, no es mia, la baje de un foro, pero me funciona a la perfeccion.

Código vb:
Ver original
  1. Public Function Redondear(ByVal Cantidad As Currency, Optional Redondeo As Byte = 2) As Currency
  2.   Dim dblPot As Double
  3.   Dim dblF As Double
  4.   If Cantidad < 0 Then dblF = -0.5 Else dblF = 0.5
  5.   dblPot = 10 ^ Redondeo
  6.   Redondear = Fix(Cantidad * dblPot * (1 + 1E-16) + dblF) / dblPot
  7. End Function

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...