[Tutorial - Básico] Cálculo de Idades

XSystemX

Honrado XPZ
14 de Julho de 2012
83
42
18
24
//Essa dica é um demostrativo de como se calcular a idade de uma pessoa em anos, meses e/ou dias

//1º Declare na uses a unit DateUtils
//2º Insira um Button e um Maskedit no Form
//3º Na propriedade EditMask do Maskedit insira o formato Date e modifique
//no campo Input Mask esse formato para 4 dígitos no ano e dê OK

//4º No evento OnClick do Button insira o código e execute


procedure TForm1.Button1Click(Sender: TObject);
var
Ano, Mes: Integer;
Total_dias: Real;
begin

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
ShowMessage(IntToStr(Ano) + ' anos, ' + IntToStr(Mes) + ' meses e ' + FloatToStr(Total_dias) + ' dias')
else
ShowMessage('Impossível realizar cálculo! Data > que a data atual!');
end;

Por: Davi Winter