Pessoal, estouu usando uma função que eu peguei das 800 Dicas e Truques delphi,
só que quando gero o relatório tem uma pessoa que está com 71 anos está saindo
no bloco do 70 anos, Mas se troco a data do windows em 9 dias ela saí no bloco
dos 71 anos. Abaixo segue a função.
Alguem pode me ajudar? Uso Delphi 7 com Paradox. Tem algum erro?
A FUNÇÃO
{$R *.DFM}
// função idade atual
function IdadeAtual(Nasc : TDate; DTATUAL : TDate): Integer;
Var AuxIdade, Meses : String;
MesesFloat, DiasFloat : Real;
IdadeInc, IdadeReal : Integer;
begin
AuxIdade := Format('%0.2f', [(DTATUAL- 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;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
