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 Function

Simplemente 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.

ir al índice

Fichero con el código de ejemplo (mdlRedondear.zip - 304 bytes)