Trabalhar com data de nascimento

Question

Como fazer para qdo sair de uma maskedit data de nascimento pegue o que foi digitado menos a data atual e coloque em outra edit a idade em anos e em outra edit os meses.
Agrade�o imensamente se for ajudado. Estou emplementando um software. Oziasl

Kanedasam · Answer

Por favor explique melhor....

Okama · Answer

[b:85d439e8b3]procedure [/b:85d439e8b3]TForm1.MaskEdit1Exit(Sender: TObject);
[b:85d439e8b3]Var[/b:85d439e8b3] ANO,MES,DIA, DANO, dMES, dDIA:Word;
[b:85d439e8b3]begin[/b:85d439e8b3]

DecodeDate(NOW,ANO,MES,DIA);
DecodeDate(StrToDateTime(MaskEdit1.Text),dANO,dMES,dDIA);

[b:85d439e8b3]if[/b:85d439e8b3] MES > dMES [b:85d439e8b3]then[/b:85d439e8b3]
Edit1.Text := IntToStr( ANO-dANO)
[b:85d439e8b3]else[/b:85d439e8b3]
Edit1.Text := IntToStr( ANO-dANO-1);

[b:85d439e8b3]if[/b:85d439e8b3] MES > dMES [b:85d439e8b3]then[/b:85d439e8b3]
Edit2.Text := IntToStr( MES-dMES)
[b:85d439e8b3]else[/b:85d439e8b3]
Edit2.Text := IntToStr( dMES-MES);

[b:85d439e8b3]end;[/b:85d439e8b3]