Como descobrir a data!

Question

Caros amigos, possuo um campo com a data de nascimento da pessoa, ex: 22/04/1980 e em cima desta data preciso saber quantos anos de idade a pessoa tem, como fa�o isso?! AtenciosamenteLuiz Claudio...

Motta · Answer

function IdadeEmAnos(PNasc, PDate:TDateTime): integer;
var
dNasc, dDate: TDecodedDate;
Idade: integer;
begin
{Inicializa com Idade Imposs�vel ...}
Idade := -1;
if PNasc > PDate then
begin
result := 0;
Exit;
end;
DecodeDate(PNasc, dNasc.ano, dNasc.mes, dNasc.dia);
DecodeDate(PDate, dDate.ano, dDate.mes, dDate.dia);
Idade := dDate.ano - dNasc.ano;
if ((dNasc.mes * 100) + dNasc.dia) > ((dDate.mes * 100) + dDate.dia) then
inc(Idade, -1);
result := Idade;
end;

Einstein · Answer

cria um campo calculavel.ex.: campocalculavel.ascurrency:=StrtoFloat(FormatDateTime(�yyyy�,Date)-StrtoFloat(FormatDateTime(�yyyy�,DtaNasciment);...

Luiz.claudio.vieira · Answer

Sera que alguem poderia me mandar um exemplo, se nao for pedir muito?? Estou boiando!!  luiz.claudio@netsite.com.br...

F�rum Como descobrir a data! #196426