data do nascimento

Question

oi pessoal. olha so o meu problema., fiz um sistema, para um cadastro de 100 familias onde tem o campo data de nascimento, mas acontece o seguinte, eu gostaria, que quando a pessoa digitasse no DBEdit...

Bacalhau · Answer

Bom, n�s podemos operar com as datas directamente e obter valores inteiros. Tenta isto:

var Diferenca : integer;
anos : integer;
dias : integer;

// calculo a diferen�a em dias

Diferenca := table.fieldbyname(�Hoje�).asdatetime -
table.fieldbyname(�Dt Nascimento�).asdatetime;

// calculo os anos

anos := diferenca div 365;

// calculo os dias

dias diferenca mod 365;

O resto � colocar os resultados no local que pretendes

abra�o
bacalhau

Aristodemo · Answer

function IdadeAtual(Nasc : TDate): Integer;
Var AuxIdade, Meses : String;
MesesFloat : Real;
IdadeInc, IdadeReal : Integer;
begin
AuxIdade := Format(��0.2f�, [(Date - Nasc) / 365.6]);
Meses := FloatToStr(Frac(StrToFloat(AuxIdade)));
if AuxIdade = �0� then
begin
Result := 0;
Exit;
end;
if Meses[1] = �-� then
begin
Meses := FloatToStr(StrToFloat(Meses) * -1);
end;
Delete(Meses, 1, 2);
if Length(Meses) = 1 then
begin
Meses := Meses + �0�;
end;
if (Meses <> �0�) And (Meses <> ��) then
begin
MesesFloat := Round(((365.6 * StrToInt(Meses)) / 100) / 30.47)
end
else
begin
MesesFloat := 0;
end;
if MesesFloat <> 12 then
begin
IdadeReal := Trunc(StrToFloat(AuxIdade)); // + MesesFloat;
end
else
begin
IdadeInc := Trunc(StrToFloat(AuxIdade));
Inc(IdadeInc);
IdadeReal := IdadeInc;
end;
Result := IdadeReal;
end;

Abra�os...

F�rum data do nascimento #179329