Fórum Idade #205570
10/01/2004
0
Olá Amigos gostaria de saber como posso fazer para exibir a idade a partir do campo data de nascimento...
obrigado...[/b]
obrigado...[/b]
Osmarlins
Curtir tópico
+ 0
Responder
Posts
10/01/2004
Motta
Amigo , use a função de pesquisa, pois algumas dúvidas são recorrentes.
http://delphiforum.icft.com.br/forum/viewtopic.php?t=28229&highlight=idade
http://delphiforum.icft.com.br/forum/viewtopic.php?t=28229&highlight=idade
Responder
Gostei + 0
10/01/2004
Alexdias
OLÁ COLEGA ...
SEGUE UM EXEMPLO QUE FIZ AGORA FRESQUINHO SÓ PARA ATENDE-LO. É UM EXEMPLO BEM SIMPLES MAS TE DARA UMA NOÇÃO ...
COLOQUE 1 EDIT , 1 BITBUTTON E 2 LABEL E CHAME-OS DE
ednascimento,lbdata,lbidade.
no evento onclick do button
var v_idade:tdate;
begin
lbdata.caption:=datetostr(date);
v_idade:=strtodate(lbdata.caption)-strtodate(ednascimento.text);
lbidade.caption:=copy(datetostr(v_idade),9,2)+´ ANOS DE IDADE .´;
// este exemplo só informa a idade ex : 27 anos de idade !!!
SE ESTE EXEMPLO FOR UTIL POR FAVOR MANDE UM E-MAIL
alexdiastec@ig.com.br
SEGUE UM EXEMPLO QUE FIZ AGORA FRESQUINHO SÓ PARA ATENDE-LO. É UM EXEMPLO BEM SIMPLES MAS TE DARA UMA NOÇÃO ...
COLOQUE 1 EDIT , 1 BITBUTTON E 2 LABEL E CHAME-OS DE
ednascimento,lbdata,lbidade.
no evento onclick do button
var v_idade:tdate;
begin
lbdata.caption:=datetostr(date);
v_idade:=strtodate(lbdata.caption)-strtodate(ednascimento.text);
lbidade.caption:=copy(datetostr(v_idade),9,2)+´ ANOS DE IDADE .´;
// este exemplo só informa a idade ex : 27 anos de idade !!!
SE ESTE EXEMPLO FOR UTIL POR FAVOR MANDE UM E-MAIL
alexdiastec@ig.com.br
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)