Como descobrir a data!
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?!
Atenciosamente
Luiz Claudio
Atenciosamente
Luiz Claudio
Luiz.claudio.vieira
Curtidas 0
Respostas
Motta
21/11/2003
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;
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;
GOSTEI 0
Einstein
21/11/2003
cria um campo calculavel.
ex.:
campocalculavel.ascurrency:=StrtoFloat(FormatDateTime(´yyyy´,Date)-
StrtoFloat(FormatDateTime(´yyyy´,DtaNasciment);
ex.:
campocalculavel.ascurrency:=StrtoFloat(FormatDateTime(´yyyy´,Date)-
StrtoFloat(FormatDateTime(´yyyy´,DtaNasciment);
GOSTEI 0
Luiz.claudio.vieira
21/11/2003
Sera que alguem poderia me mandar um exemplo, se nao for pedir muito?? Estou boiando!! luiz.claudio@netsite.com.br
GOSTEI 0