Fecha de nacimiento

Respuesta de
a
Usuario
Quisiera saber como hago para calcular la edad, luego de introducir la fecha de nacimiento
Gracias y email es adrian_aj22@yahoo.com.ar
Experto
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
Usuario
Fernando, no pude hacerlo funcionar, me sale que no coinciden los tipos de datos
Si tienes un formulario, te lo agradecería
Experto
Necesito que puntúes la respuesta... así puedo liberar espacio en mi bandeja de entrada para nuevas preguntas de otros usuarios... gracias

Fernando Alvarez
Experto
Chequea tus correos de Yahoo y Hotmail.

Saludos
Fernando Alvarez
Usuario
La verdad que tu ejemplo es muy bueno
Gracias