Buscar

Como calcular idade da pessoa a partir da data de nascimento

Código

//-- Olá pessoal, aqui segue uma função para calcular a idade da pessoa a
//-- partir da data de nascimento! Espero que gostem e ajude muitas pessoas!


//-- Primeiro declare a função na cláusula PRIVATE do seu form

private
{private declarations}
  Function DataIdade(DataNascimento : String) : Integer;
public

implementation

//-- Depois coloque o corpo da função após a cláusula implementation

Function TForm1.DataIdade(DataNascimento : String) : Integer;
begin
  try
    strtodate(datanascimento); //-- Verifica se a data é valida
  except
    messagedlg('Data de nascimento inválida!', MTERROR, [MBOK], 0);
    abort;
  end;
  result := Trunc((Date - Strtodate(DataNascimento))/365.25);
end;

//-- Pronto, agora é só atribuir a um controle
//- - tipo:

edit1.text := inttostr(dataidade('12/01/1980'));


//-- Dica por Marcio Júnior
//-- Uberaba-MG

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 11/01/07
Por: Marcio Junior
Visualizada: 19069 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009