Programa de Calcular edades

A continuacion subimos la programacion de un archivo realizado, en visual fox pro, el cual calcula la edad de una persona

*USE Tablas\Edades IN 0
*Llamada desde el Prg de Inicio.
GO TOP

Repla All Cumplen_anos With ""
SCAN
Fec1=Fecha_Nac
Fec2=Date()
valor1=Day(Date())
Valor2=Month(Date())
Valor3=Year(Date())
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
*Comprueba se la persona cumple años al momento de ejecutarse la rutina.
IF Day(Fecha_Nac)= Valor1 and Month(Fecha_Nac)=Valor2
Dias=0
Meses=0
ENDIF
Xl=ALLTRIM(STR(Anos))+" Años, "+ALLTRIM(STR(Meses))+" Meses y,"+ALLTRIM(STR(Dias))+" Días."
Repla Edad_Exacta With Xl
Repla vAnos With Anos
Repla vMeses With Meses
Repla vDias With Dias
ENDSCAN

go top
SCAN
SELECT Edades
REPLA Cumplen_anos WITH Nombre FOR Day(Fecha_Nac)=Valor1 and Month(Fecha_nac)=Valor2
SELECT Edades
ENDSCAN
CLOSE TABLES
*SELECT Edades
*GO TOP

************

*go top
*SCAN
* SELECT Edades
* REPLA Articulos_Vencidos WITH Nombre FOR Day(Fecha_Nac)=Valor1-1 and Month(Fecha_nac)=Valor2 and Year(Fecha_nac)=Valor3
* SELECT Edades
*ENDSCAN
*SELECT Edades
*GO TOP

************

*En la siguiente entrada, les mostraremos las respectivas imagenes de la ejecucion del programa.