Código de FoxPro/Visual FoxPro - Edad exacta

Edad exactagráfica de visualizaciones


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(8)
Publicado el 21 de Junio del 2004 por Eduardo Ureña
22.815 visualizaciones desde el 21 de Junio del 2004. Una media de 42 por semana
Función que devuelve la edad exacta de una persona

Versión 1
estrellaestrellaestrellaestrellaestrella(8)

Publicado el 21 de Junio del 2004gráfica de visualizaciones de la versión: Versión 1
22.816 visualizaciones desde el 21 de Junio del 2004. Una media de 42 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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



Comentarios sobre la versión: Versión 1 (8)

Eduardo Ureña
09 de Agosto del 2004
estrellaestrellaestrellaestrellaestrella
Agradezco al colega de Colombia señor Javier Alfonso Dávila por su aporte para mejorar el código. Lo envié a la WebdelProgramador y espero que lo publiquen pronto. Ahora también considera los años bisiestos y el margen de error es +-un día.
Un abrazo al pueblo colombiano!

Responder
Hugo A. Santacruz López
14 de Septiembre del 2004
estrellaestrellaestrellaestrellaestrella
He probado el programa con estas fechas:
fec1 = 21/08/1968
fec2 = 14/09/2004
y ha arrojado estos valores:
AÑOS = 36
MESES =
DIAS = -7 (negativo 7).

Han despertado mi curiosidad y tengo desarrollada una rutina; quisiera saber cómo incluirlo.
Me exigen una valoración. Debo hacerlo como negativo.

MUCHAS GRACIAS !!!
Responder
Uplift
01 de Octubre del 2004
estrellaestrellaestrellaestrellaestrella
no me baje este codigo. no creo necesitarlo.
pero puedo comentarles que el pequeño error por los años bisiestos se puede solucionar facilmente segun como funcione el codigo, dividiendo por 365,25 donde el 0,25 representa 1 dia mas cada 4 años.
un calculo sencillo de edad seria:
(fechahoy-fechanacimiento)/365,25
Responder
jose Rolando
09 de Marzo del 2007
estrellaestrellaestrellaestrellaestrella
Hola
necesito que me digan como y desde donde llamo esa rutina, si desde un formulario o no. Si fec1 es igual al cuadro de texto del form.
Gracias...
Responder
Jose Rolando
15 de Marzo del 2007
estrellaestrellaestrellaestrellaestrella
Hola
Les comento que hice un proyecto con ese codigo que me permite determinar la edad exacta de todos los registros que hay en una tabla, ademas determina quienes cumplen años al momento de ejecutar la rutina.
En breve la enviare a la web.
Responder
José Vargas
29 de Marzo del 2009
estrellaestrellaestrellaestrellaestrella
Mil gracias por la solución de dividir por 365.25 para calcular la edad teniendo en cuenta los años biciestos. Muchísimas Gracias!!!!
Responder
Raul Duran
27 de Marzo del 2011
estrellaestrellaestrellaestrellaestrella
Esta pagina me parece un gran aporte a las personas que se inician en la programacion.Personalmente me ha ayudado mucho,Gracias a todos lo que de alguna manera aportan algo.

Mis saludos para todos.
Responder
Rodrigo
14 de Enero del 2013
estrellaestrellaestrellaestrellaestrella
Muy bueno, aunque me parece que el margen de error es de mas días ;)
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1067