31/03/2008, 06:10
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 16 años, 8 meses Puntos: 18 | |
| Re: Problema con el redondeo en access
Una opcion:
'************************************************* ************************************************** ********
'* función que redondea un valor pasado como argumento, con un número de decimales determinado
'* uso: Redondeo(dblValor,1)
'* ESH 30/07/00 18:30
'************************************************* ************************************************** ********
Public Function Redondeo(dblValor As Double, bytDecimales As Byte)
If Int(dblValor * 10 ^ bytDecimales + 0.5) > Int(dblValor * 10 ^ bytDecimales) Then
Redondeo = Int(dblValor * 10 ^ bytDecimales + 0.5) / 10 ^ bytDecimales
Else
Redondeo = Int(dblValor * 10 ^ bytDecimales) / 10 ^ bytDecimales
End If
End Function ' Redondeo
Un saludo |