Rotina utilizando 2 edit, calculando a idade de uma pessoa
[b:755142105f]Alguém conhece uma rotina, onde posso utilizar 2 edit, que em um deles eu digito a data de nascimento e em outro uma data qualquer e como resultado eu obtenha a idade dessa pessoa em anos, meses e dias. :?:
Ex.: 18 anos, 11 meses e 4 dias.
Agradeço a ajuda de todos.
Ponce :)[/b:755142105f]
Ex.: 18 anos, 11 meses e 4 dias.
Agradeço a ajuda de todos.
Ponce :)[/b:755142105f]
Ponce :)
Curtidas 0
Respostas
Japa
22/09/2003
Procedure EntreDatas(DataFinal,DataInicial : TDate ; var Anos,Meses,Dias : Integer) ;
//
// Retorna a diferença em Dias,Meses e Anos entre 2 datas
//
Function Calcula(Periodo : Integer) : Integer ;
var
intCont : Integer ;
begin
intCont := 0 ;
Repeat
Inc(intCont) ;
DataFinal := IncMonth(DataFinal,Periodo * -1) ;
Until DataFinal < DataInicial ;
DataFinal := IncMonth(DataFinal,Periodo) ;
Inc(intCont,-1) ;
Result := intCont ;
End ;
begin
if DataFinal <= DataInicial then
begin
Anos := 0 ;
Meses := 0 ;
Dias := 0 ;
exit ;
end;
Anos := Calcula(12) ;
Meses := Calcula(1) ;
Dias := Round(DataFinal - DataInicial) ;
end;
Amigo peguei nos 800 dicas de delphi.. espero ter ajudado :wink:
GOSTEI 0