La Web del Programador: Comunidad de Programadores
 
    Pregunta:  14354 - REDONDEO DE DECIMALES PARA EL EURO
Autor:  Iñaki Ramos
Estoy adaptando diversas aplicaciones que he desarrollado bajo Access 97 al Euro, y me encuentro con el problema de que no soy capaz de hacer redondear el tercer decimal siguiendo la normativa. Esto es, que aunque dependiendo del formato que le aplique al campo, pueda ver dos decimales redondeados, Access mantiene el número real de decimales -y sin redondear-, de manera que aunque sea una cantidad en principio despreciable, esta se puede convertir en importante al acumularse.
Por otra parte si le digo a Access que lo redondee, lo hace en la unidad. A ver sin alguien me puede ayudar. Gracias.

  Respuesta:  Jesús Palacio
De lo que he sudado dire:

Que en Access 2000 veo que esta incorporada la fución Round(Numero,nDecimales). Y que en Access 97 no aparece de ninguna manera.

Pero mira por donde en la Excel si aparece una funcion que se conoce con el nombre Redondear(Numero;nDecimales)

Pues nada Referencias en Access 97 el fichero donde se encuentran las funciones de Excell. Y ya tienes tu función Round incorporada a Access 97 y todas las demas de Excel

Y de verdad que tu redondeo de Euros te lo agradecera.

Sí quieres los pasos uno a uno me los pides. Ya que sí lo pongo aqui nunca se si ayudo de verdad a alguien o escribo por escribir.

  Respuesta:  Vicente Murcia Perez
' function que se incluye en los controles - después de actualizar -
' para dar formato a los números
Function FDeci()
Screen.ActiveControl = 0 + Format(Screen.ActiveControl, "#########0.00")
End Function

' function que se incluye en las rutinas de cálculo para dar formato
' a los resultados
Function FDeci1(num As Double)
FDeci1 = 0 + Format(num, "#########0.00")
End Function

  Respuesta:  Jose Luis Pascual
Hola,

Yo no soy programador profesional, vaya esto por delante.

Sin embargo puedo decirte que en Access 2000 existe la funcion Euroconvert() que te hace todo el trabajo ¿No existe en Access 97?

Saludos