Idade
Olá Amigos gostaria de saber como posso fazer para exibir a idade a partir do campo data de nascimento...
obrigado...[/b]
obrigado...[/b]
Osmarlins
Curtidas 0
Respostas
Motta
10/01/2004
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
GOSTEI 0
Alexdias
10/01/2004
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
GOSTEI 0