Trabalhar com data de nascimento

Delphi

21/03/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Kanedasam

Kanedasam

21/03/2003

Por favor explique melhor.


GOSTEI 0
Okama

Okama

21/03/2003

[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]


GOSTEI 0
POSTAR