Access - redondeo en 4 monedas

 
Vista:

redondeo en 4 monedas

Publicado por n2007 (1 intervención) el 21/09/2007 21:12:11
No se puede decir a un cliente $6,15 si no hay monedas.
Necesito una funcion que redondee los precios de otro campo a favor del cliente
El tema es que el redondeo debe ser en 4 opciones de centavos : 00 – 25 – 50 – 75
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:redondeo en 4 monedas

Publicado por Chea (1015 intervenciones) el 21/09/2007 22:16:45
A base de ensayos me sale esto:

MiRedondeo = (((MiValor * 100)+24) \25 )* .25

Igual tienes que hacerle algún arreglo para que redondee a tu gusto

Saludos
José Bengoechea Ibaceta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:redondeo en 4 monedas

Publicado por byronlcl (1 intervención) el 22/09/2007 02:45:01
amigo, te elaboré una función, solo copiala a un módulo general

'--------------------------------------------------------------------
'Creado por Byronlcl - Byron Contreras, 21/sep/07
'--------------------------------------------------------------------
'La función te redondea los centavos de una cantidad al cuarto menor
'Ejemplo de uso; Variable/Campo = RedondearMonedasAlCuartoInferior(46.56)

Public Function RedondearMonedasAlCuartoInferior(MontoARedondear As Currency) As Currency
Dim ParteEntera As Long
Dim Centavos As Currency
Dim CentavosRedondeados As Currency

ParteEntera = Int(MontoARedondear)
Centavos = MontoARedondear - ParteEntera

Select Case Centavos
Case Is >= 0.75: CentavosRedondeados = 0.75
Case Is >= 0.5: CentavosRedondeados = 0.5
Case Is >= 0.25: CentavosRedondeados = 0.25
Case Else: CentavosRedondeados = 0
End Select

RedondearMonedasAlCuartoInferior = ParteEntera + CentavosRedondeados

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar