FoxPro/Visual FoxPro - Calcular edad mediante campo fecha

quiero calcular la edad mediante un campo fecha, el cual es la fecha de nacimiento de la persona .........................

Funcion para calcular edad

*-----------------------------------------------------
* 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

Solo debes asingnarle la variable correspondiente a el textbox.

Bytes

:-|

Nunca dudes de la capacidad de nadie
Las personas mas inteligentes por naturaleza son mas humildes ..

:-|

Puedes pobrar con este codigo poniendolo en el LostFocus del TextBox donde captures la fecha de nacimiento y creas otro txtbox=W_EDAD y ahi asignas la edad al dia

Z_NACIMIENTO=DTOC(THISFORM.Pageframe1.Page1.W_NACIMIENTO.Value )
FEC2=DATE()
FEC1=THIS.Value
DIFERENCIA=FEC2-FEC1
SUMAR=INT(DIFERENCIA/1461)
VAR1=DIFERENCIA/365
AÑOS=INT(VAR1)
VAR1=VAR1-AÑOS
VAR1=VAR1*12
MESES=INT(VAR1)
VAR1=(VAR1-MESES)*30
DIAS=(INT(VAR1))-SUMAR
THISFORM.Pageframe1.Page1.W_EDAD.Value = (AÑOS)


Suerte

Creo que lo mejor que pueden hacer es lo siguiente:
fecha=ctod("01/01/1980")

? ( year(date()-year(fecha) )+ iif(month(date())>month(fecha), 1 , 0)
suma un año si el mes actual es mayor al de la fecha de nacimiento.

Pueden hacer los mismo con los dias, o sea si el dia actual es mayor al dia de la fecha indicada, sumar 1.

Recuerden que los mejores programadores son los que hacen harto en poco codigo, ( y tiempo!!)

Slds!!

Hay dos errores, primero falta un parentesis y luego esta mal el iif, lo correcto seria:

? (year(date())-year(fecha))+iif(month(date())>month(fecha),1,0)

Perdon, asi esta bien ahora

? (year(DATE())-year(fecha))-iif(month(DATE())<month(fecha),1,0)

No se si te diste cuenta, pero el tema tiene diez años de antiguedad.

? Int( (fecha_actual-fecha_nacimiento)/365.25)

Nada corre como un zorro...

Saludos!