Mostrar cumpleaños en vfp
muy buenas expertos necesito su ayuda tengo una tabla llamada clientes la cual entre otros campos hay uno que se llama nacimiento la cual es la fecha de nacimiento del cliente.
dicho formato fecha es dd/mm/yyyy o BRITISH
en un formulario de búsqueda tengo dos text , botón buscar y un grid.
en los text quiero ingresar por ejemplo 0106 que seria el 01 de junio y en el otro text 1906 que seria el 19 de junio y que al dar clic en el botón buscar me aparezcan los clientes que cumplen años según su fecha de nacimiento en ese rango especifico en el grid.
Nota: no se si seria mejor agregar otro campo en la tabla clientes que al ingresar la fecha de nacimiento me guarde solo día y mes en otro campo, si fuese así no se como iría en algún evento del campo en el form donde ingreso los datos.
o si no es necesario hacer eso y se pueda hacerlo de un solo en el form de búsqueda a través de el evento clic en el botón buscar, cual seria el código.
y por ultimo deseo agregar un nuevo botón que haga un reporte o informe para imprimir el listado obtenido de la búsqueda en el grid.
muchas gracias por su tiempo.
1 Respuesta
Chequea este código e implementalo a tu grid.
*-----------------------------------------------------
* FUNCTION Edad(tdNac, tdHoy)
*-----------------------------------------------------
* Calcula la edad pasando como parámetros:
* tdNac = Fecha de nacimiento
* tdHoy = Fecha a la cual se calcula la edad.
* Por defecto toma la fecha actual.
*-----------------------------------------------------
FUNCTION Edad(tdNac, tdHoy)
LOCAL lnAnio
IF EMPTY(tdHoy)
tdHoy = DATE()
ENDIF
lnAnio = YEAR(tdHoy) - YEAR(tdNac)
IF GOMONTH(tdNac, 12 * lnAnio) > tdHoy
lnAnio = lnAnio - 1
ENDIF
RETURN lnAnio
ENDFUNC
muchas gracias por tu tiempo y contestar pero ya solucione el problema a través de otro código que me ayudo otro experto y que me funciona a la perfección tal como yo lo deseaba pero igual tomare en cuenta tu código.
muchísimas gracias
