Redondeo a 0,05


   Buenas tardes a todos, expongo mi conflicto:

Tengo una formula en Excel que obtiene un redondeo a un factor de 0.05, pero al llevarlo a Access, me esta dando atados:La función en Excel

REDOND.MULT('REGISTRO GRAVAS'!AB45;0,05), esto da como resultado 1.15

en Access:

Me.Den_Absorcion_Promedio = Round(((Me.Den_Absorcion + Me.Den_Absorcion1) / 2), 2), esto da como resultado 1.17

la idea es como hacer que access aplique o mejor dicho entregue el mismo resultado (1.15)

Existe algún ejemplo que pueda investigar y yo, después lo aplico a mi base

Saludos

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Javier_Flores Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 04/Agosto/2006 Localización: Chile Estado: Sin conexión Puntos: 101	Tema: Redondeo a 0,05 Enviado: 03/Febrero/2023 a las 17:28
	Buenas tardes a todos, expongo mi conflicto: Tengo una formula en Excel que obtiene un redondeo a un factor de 0.05, pero al llevarlo a Access, me esta dando atados: La función en Excel REDOND.MULT('REGISTRO GRAVAS'!AB45;0,05), esto da como resultado 1.15 en Access: Me.Den_Absorcion_Promedio = Round(((Me.Den_Absorcion + Me.Den_Absorcion1) / 2), 2), esto da como resultado 1.17 la idea es como hacer que access aplique o mejor dicho entregue el mismo resultado (1.15) Existe algún ejemplo que pueda investigar y yo, después lo aplico a mi base Saludos
	Javier Flores Un Saludo desde Coquimbo, IV Region, Chile

jebcarlos Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 16/Julio/2006 Localización: Colombia Estado: Sin conexión Puntos: 275	Enviado: 04/Febrero/2023 a las 05:26
	Buenas noches creo que las funciones que están en accesdemo las puedes utilizar a ver cual te aplica al caso en concreto https://www.accessdemo.info/docs_articulos/redondeo-parte-dos.html

Javier_Flores Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 04/Agosto/2006 Localización: Chile Estado: Sin conexión Puntos: 101	Enviado: 05/Febrero/2023 a las 17:58
	Estimados, gracias por las respuestas pero ya di con la solución, el lunes subo el código para poder cerrar este hilo Saludos
	Javier Flores Un Saludo desde Coquimbo, IV Region, Chile

Javier_Flores Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 04/Agosto/2006 Localización: Chile Estado: Sin conexión Puntos: 101	Enviado: 14/Febrero/2023 a las 13:56
	disculpen la demora, pero esto fue lo que desarrollé para lograr mi cometido, esto lo puse en el evento despues de actualizar: 'ABSORCION Dim VALOR As Single Dim RESIDUO As Single VALOR = Round(((Me.Den_Absorcion + Me.Den_Absorcion1) / 2), 2) * 100 RESIDUO = VALOR Mod 5 MsgBox RESIDUO If RESIDUO >= 2.05 Then MsgBox (VALOR + 5 - RESIDUO) / 100 Me.Den_Absorcion_Promedio = (VALOR + 5 - RESIDUO) / 100 Else MsgBox (VALOR - RESIDUO) / 100 Me.Den_Absorcion_Promedio = (VALOR - RESIDUO) / 100 End If Espero que esto se entienda cualquier duda favor comentar, y ya pueden pueden dar por cerrado este hilo Saludos
	Javier Flores Un Saludo desde Coquimbo, IV Region, Chile