Código
//-- 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
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009