FoxPro/Visual FoxPro - CALCUAR EDAD

Necesito un codi para calcular la edad de una persona y que el resultado lo meta en una variable

tambien quiero que expliquen como implementarlo ..............

Aqui mismo en esta Web, dentro de la Sección Codigo Fuente existe un codigo referente a lo que tu quieres:

http://www.lawebdelprogramador.com/codigo/enlace.php?idp=1478&id=34&texto=FoxPro/Visual+FoxPro

Suerte►

puedes usarlo en el LostFocus de un textbox donde captures la fecha de nacimiento

Z_NACIMIENTO=DTOC(THISFORM.Pageframe1.Page1.W_NACIMIENTO.Value )
Z_RFC=SUBSTR(THISFORM.Pageframe1.Page1.W_APATERNO.Value,1,2)+SUBSTR(THISFORM.Pageframe1.Page1.W_AMATERNO.Value,1,1)+SUBSTR(THISFORM.Pageframe1.Page1.W_NOMBRE.Value,1,1)
Z_RFC1=Z_RFC+SUBSTR(Z_NACIMIENTO,9,2)+SUBSTR(Z_NACIMIENTO,4,2)+SUBSTR(Z_NACIMIENTO,1,2)
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



suerte

Creo que la forma más fácil es
dianacim=Fecha de Nacimiento
diahoy =DATE()
* Se supone que la próxima instrucción me va a decir cuantos dias vivi
cuantosdiasvivi=diahoy-dianacim

* Ahora bien el año tiene 365.25 días (365 días + 1 día por año bisiesto)
añosquevivi=INT(cuantosdiasvivi/365.25)

PROBA Y AVISAME.