ESPERO Y ME AYUDEN

EDITH SEGUNDO
02 de Octubre del 2004
NECESITO REALIZAR UN PROGRAMA EN FOX PRO PARA CALCULAR EL TIEMPO DE VIDA QUE LLEVA UNA PERSONA SOLO INTRODUCIENDO SU FECHA DE NACIMIENTO, ADEMÁS DE CONVERSION DE TABLAS.
BUENO ESO ES TODO ESPERO Y ME RESPONDAN LO MAS PRONTO POSIBLE. LO QUE PASA ES QUE ES UNA TAREA DE ESCUELA

CesarZ
02 de Octubre del 2004
Hola Esto lo encontre en

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

FUNCTION cEdad(Fec2,Fec1)
* Programa: cEdad
* Escrito: Eduardo A. Ureña Solano
* País: Costa Rica
* Devuelve en una cadena, el texto que describe la edad exacta, tomando
* como parámetro Fec2 (fecha a la que se calculará la edad) y Fec1 (Fecha de nacimiento)
*
* Modificado con el aporte de Javier Alfonso Dávila,
* Ibagué Colombia, para considerar años bisiestos. ¡Gracias Colega!
* Margen de error: 1 día.
******

Dif=Fec2-Fec1
sumar = INT(Dif/1461)
Var1=Dif/365 &&Con decimales
Anos=INT(Var1) &&Entero, indicará los años.
Var1=Var1-Anos &&Tomando el resíduo decimal.
Var1=Var1*12 &&Calculando los meses
Meses=INT(Var1) && El Entero
Var1=(Var1-Meses)*30
Dias=INT(Var1)-Sumar

Xl=ALLTRIM(STR(Anos))+" Años, "+ALLTRIM(STR(Meses))+" Meses y
"+ALLTRIM(STR(Dias))+" Días."

RETURN Xl