Fecha de nacimiento

Quisiera saber como hago para calcular la edad, luego de introducir la fecha de nacimiento
Gracias y email es adrian_aj22@yahoo.com.ar
1

1 respuesta

1
Respuesta de
Adrian:
Crea dos TextBox en el formulario llamados: FECHA y EDAD.
En el evento "init" del Form escribe:
THISFORM.FECHA.VALUE=CTOD(' / / ')
En el evento "lostfocus" de FECHA escribe:
_TOTAL_DIAS=DATE()-THISFORM.FECHA.VALUE
_ANIOS=INT(_DIAS/365)
_MESES=INT((_TOTAL_DIAS-(_ANIOS*365))/30)
_DIAS=_TOTAL_DIAS-(_MESES*30)-(_ANIOS*365)
THISFORM.EDAD.VALUE=IIF(ANIOS>0,IIF(ANIOS=1,ALLT(STR(ANIOS))+' Año ',ALLT(STR(ANIOS))+' Años '),'')+IIF(_meses>0,IIF(_meses=1,ALLT(STR(_MESES))+' Mes ',ALLT(STR(_MESES))+' Meses '),'')+IIF(_Dias>0,IIF(_Dias=1,ALLT(STR(_DIAS))+' Día',ALLT(STR(_DIAS))+' Días'),'')
THISFORM.REFRESH
Saludos
Fernando Alvarez
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Visual Fox Pro o hacer tu propia pregunta: