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

Respuesta
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
Fernando, no pude hacerlo funcionar, me sale que no coinciden los tipos de datos
Si tienes un formulario, te lo agradecería
Necesito que puntúes la respuesta... así puedo liberar espacio en mi bandeja de entrada para nuevas preguntas de otros usuarios...
Chequea tus correos de Yahoo y Hotmail.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas