Calculando Idade de forma simples!

[Marcelo Cruz]

Olá,
Calculando idade completa.
1) crie um campo data e um botao para executar.
2) no codigo do botão coloque a seguinte rotina.

xidade is string // criei uma variavel para guardar os calculos
xidade = Age(datanascimento..Value, DateSys) // calculando...

Info("Idade : "+Middle(xidade, 3, 2)+" anos "+Middle(xidade, 5, 2)+ ...
" meses "+Middle(xidade, 7, 2)+" dias")// o comando info mostra na tela.. facil facil

Abraços
Marcelo Cruz

[Gelson Rodrigues]

Existe a comando AGE no windev

http://doc.pcsoft.fr/fr-FR/?3027034

Age("19690513", "20051010") 
// Returns "00360427" which means 36 years, 4 months and 27 days

Age("19730912", "20050812") 
// Returns "00311100" which means 31 years and 11 months
// How old are you?
dMyAge is Date
dMyAge = Age("19790201", "20061025")
InfoBuild("Your age is: %1 years %2 months %3 days", ...
dMyAge..Year, dMyAge..Month, dMyAge..Day)
// Displays: "Your age is: 27 years 08 months 24 days"