RE:ALGUIEN CONOCE FUNCION PARA REDONDEAR RESULTADO
A ver si esta te sirve
Public Function Redondear(ByVal Numero, Decimales)
'Esta función permite redondear un número a las
'posiciones decimales deseadas
Dim iSigno As Integer, dResultados As Double
'Vemos si el número es negativo
iSigno = IIf(Numero < 0, -1, 1)
'Lo volvemos positivo
Numero = Numero * iSigno
'Se corre el decimal a la posición buscada
dResultados = Numero * 10 ^ Decimales
'Se toma la parte fraccionaria
Numero = dResultados - Int(dResultados)
'Se toma la parte entera
dResultados = Int(dResultados)
'Si la fracción es mayor a 0.5
If Numero >= 0.5 Then
'Se incrementa en 1 el número
dResultados = dResultados + 1
End If
'Se le pone el signo y se vuelve el decimal a la
'posición buscada
dResultados = iSigno * dResultados / 10 ^ Decimales
Redondear = vdResultados
End Function