Redondear con VB6
Redondear un n�mero a X decimales

Fecha de env�o: 30/08/2003
Autor: Antonio Calle - [email protected]

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.

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