Como calcular idade?

Question

Como fazer para na hora de eu digitar a data de nascimento me retornar a idade com os meses tipo 15/07/1977 me dar a mensagem 28 anos e 03 meses por exemplo.Agrade�o a aten�ao de todosADRIANO...

Firekiller · Answer

Voc� poderia fazer assim:var   MesN, AnoN, MesA, idadeAnos, idadeMeses:integer;mesN := MonthOf( CampoDataNascimento );anoN := YearOf( CampoDataNascimento );mesA := MonthOf( date );idadeanos:= anoN - YearOf( Date );idadeMeses := 0;if mesN > mesA then begin  idadeAnos := idadeAnos - 1;  idadeMeses := 12 + mesA - mesN;endelse if mesN > mesA then begin  idadeMeses := mesA - mesN;end;Label.Caption := Format(�A idade � �d anos e �d meses�,[idadeAnos,idadeMeses]);Nesse caso, levo em considera��o apenas os meses, por�m n�o os dias. A idade � exibida em um label. Verifique o trecho usado para tratamento do mes e implemente o restante para tratamento dos dias....

Adriano_servitec · Answer

Ola firekiller, so uma duvidazinha, preciso de algum maskedit para digitar a data para saber o resultado? O codigo que vc postou eh uma fun�ao ou eu coloco em algum events...Desculpe nao entendi direito amigo.

Agrade�o pela ajuda

Adriano_servitec · Answer

Ola amigo no Delphi 5 o qual estou usando nao tem a fun�ao MonthOf(), DayOf() nem YearOf(). Nao consigo compilar, Tem como declarar essas fun�oes ou algum outro jeito de eu verificar a data de nascimento?

Eh muito importante
Agrade�o a ajuda de todos
Obrigado

Renatacoimbra · Answer

As Fun��es MonthOf(), DayOf() e YearOf() est�o na Unit DateUtils, no Delphi 5 acho q n�o tem ainda.

Mais vc pode usar essa fun��o, uso ela e funciona certinho.

function TForm1.IdadeExtenso(DataNasc: TDateTime): String;
Var
  CalcIdade       : Double;
  Ano, sA, sM, sD : String;
  A, M, D         : Word;
begin
   CalcIdade := ( Date - DataNasc);
   DecodeDate(CalcIdade,A,M,D);
   Dec(M);
   Ano := IntToStr(A);
   Delete(Ano,1,2);

   if A > 1 then
    sA := �Anos�
  else
    sA := �Ano�;

  if M > 1 then
    sM := �Meses�
  else
    sM := �Mes�;

  if D > 1 then
    sD := �Dias�
  else
    sD := �Dia�;

  if Ano <> �00� then
    Result := Ano+� �+sA;
  if M > 0 then
    Result := Result + � �+IntToStr(M)+� �+sM;
  if D > 0 then
    Result := Result + � �+IntToStr(D)+� �+sD;

end;

[]�s

Adriano_servitec · Answer

Obrigado pela fun�ao e ajuda Renata Coimbra, mais eu nao sei como posso chama-la, no meu programa. Desculpe minha ignorancia mais nao consigo saber....

Firekiller · Answer

Colega, a fun��o voc� pode chamar em qualquer momento. A colega Renata colocou em forma de fun��o, voc� simplesmente pode colocar ela no evento onclick de um bot�o ou no evento onexit de algum maskedit/edit. Se for no caso de voc� estar usando um edit, fiocaria assim:

label.Caption := IdadeExtenso(StrToDate(edit1.text) );

e ent�o seria mostrado no label o que voc� quer.

F�rum Como calcular idade? #300642