Redondear con VB6
Redondear un número a X decimales
Fecha de envío: 30/08/2003
Autor: Antonio Calle - acalle@activasoft.net
Estaba revisando las news de VB de Microsoft el otro día cuando vi una consulta sobre como redondear números, y se me ocurrió enviar esta colaboración con una pequeña función que utilizo para hacerlo con el número de decimales que desee.
Así que aquí la tenéis:
Public Function Redondear(dNumero As Double, iDecimales As Integer) As Double Dim lMultiplicador As Long Dim dRetorno As Double If iDecimales > 9 Then iDecimales = 9 lMultiplicador = 10 ^ iDecimales dRetorno = CDbl(CLng(dNumero * lMultiplicador)) / lMultiplicador Redondear = dRetorno End FunctionSimplemente se le pasaran a la función dos parámetros, el número a redondear y la cantidad de decimales (solo admite hasta nueve, ya que es lo máximo que nos permite el tipo LONG para el multiplicador). Retornara un DOUBLE con el numero redondeado a la cantidad de decimales que necesitemos.
Fichero con el código de ejemplo (mdlRedondear.zip - 304 bytes)