Guks
Reportero Total Gukimimos® Gukikarmas® Gukiniano® Ahora tambien GukiFurbi de venta en Carrefoures
Administrador
PeterPaulistic@²
   
Karma : 5054
Sexo: 
Mensajes: 21.100
Moderador de Moderadores
WWW
|
 |
« Respuesta #1 : 13 de Noviembre 2005, 18:41:07 » |
|
Es posible crear funciones el editor de Visual Basic de Access para luego invocarlas en formularios e informes. Por ejemplo, la edad exacta en años cumplidos puede calcularse con la siguiente función:Function edad(x)Edad = Year(Date)-Year(x)If DateSerial(Year(Date), Month(x), Day(x)) > Date _ Then Edad = Edad - 1End FunctionSe ha supuesto que el argumento x es la fecha de nacimiento, que debe estar contenida en algún campo de la tabla. Esta función resta simplemente el año de nacimiento del año actual y luego resta una unidad si aún no se han cumplido los años correspondientes al año actual. La fecha actual se obtiene de la función especial Date, que devuelve la fecha del sistema. La fecha del cumpleaños se construye con DateSerial, que es la función equivalente a FECHA, de Excel. Year, Month, y Day extraen, de una fecha dada, el año, el mes y el día, respectivamente.Para crear la función Edad:1.- Dentro de Access, tomar las opciones Herramientas·Macro·Editor de Visual Basic.2.- Una vez abierto el editor, seleccionar Insertar·Módulo.3.- En la ventana de texto que se abre, escribir el código anterior.4.- Cerrar el editor y volver a Access.Para calcular y mostrar la edad con esta función, se puede crear un informe dentro del cual se inserta la expresión =Edad([Nacimiento]), donde Nacimiento es el nombre del campo que contiene la fecha de nacimiento.
Claudio H. Sánchez
|