[Tutorial] Calculo De Idade

[josue1602 0]

Aew Pessoal Agora Vo Tah Explicando Como Fazer Um Calcula De Data, Vc Digita Sua Data De Nascimento No MaskEdit e Aperto O Botão Ele Dis Sua Idade, Quantos Meses Vc Tem, Quantos Dias e No Final Dis Ano Mes e Dia.

 

Bom Vamos Para o Tutorial

 

1º Adicione Um Button Na Aba Standard

2º Coloce A Propriedade Caption Do Botão Para Calcular Idade

3º Adicione Uma Memo Na Aba Standard

4º Apague A Propriedade Lines Do Memo Deixe Em Brano

 

Agora Vamos Para Os Codigos

 

1º Declare Na Uses DateUtils Elá Se Encontra Lá Em Cima De Todos Os Codigos

2º Adicione a Seguinte Linha De Codigo No Evento OnClick Do Button

var

Ano, Mes: Integer;

Total_dias: Real;

begin

//Descobrir a idade somente em anos, meses ou dias...

with Memo1.Lines do begin

add(IntToStr(YearsBetween(Date, StrToDate(MaskEdit1.Text))) + ' anos');

add(IntToStr(MonthsBetween(Date, StrToDate(MaskEdit1.Text))) + ' meses');

add(IntToStr(DaysBetween(Date, StrToDate(MaskEdit1.Text))) + ' dias');

 

//ou

 

//Descobrir a idade em anos, meses e dias, complicando um pouco mais...

 

Total_dias := DaysBetween(Date, StrToDate(MaskEdit1.Text));

Ano := StrToInt(Copy(MaskEdit1.Text, 7, 4));

while Total_dias > 365 do

begin

Total_dias := Total_dias - DaysInAYear(Ano);

Ano := Ano + 1;

end;

Mes := StrToInt(Copy(MaskEdit1.Text, 4, 2));

while Total_dias > 28 do

begin

if Total_dias >= DaysInAMonth(Ano, Mes) then

begin

Total_dias := Total_dias - DaysInAMonth(Ano, Mes);

Mes := Mes + 1;

end

else

break;

end;

Ano := Ano - StrToInt(Copy(MaskEdit1.Text, 7, 4));

Mes := Mes - StrToInt(Copy(MaskEdit1.Text, 4, 2));

if StrToDate(MaskEdit1.Text) <= Date then

add(IntToStr(Ano) + ' anos, ' + IntToStr(Mes) + ' meses e ' + FloatToStr(Total_dias) + ' dias'))

else

ShowMessage('Impossível realizar cálculo! Data > que a data atual!');

end;

end;

 

OBS: Apague o Begin Que Já Está Escrito

 

OBS: Para Cacular A Idade Vc Digita No MaskEdit Assim: dd/mm/aaaa

 

Dica: Deixe Vc Pode Deixar A Propriedade Enabled Do Memo Em False Para Que Não Possa Mecher No Memo.

 

Pronto Seu Projeto Esta Pronto

 

Gostou? Agradeça