Fecha de nacimiento
Quisiera saber como hago para calcular la edad, luego de introducir la fecha de nacimiento
Gracias y email es [email protected]
Gracias y email es [email protected]
1 Respuesta
Respuesta de falvarez
1
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
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
