fbpx

Função que retorna a idade de uma pessoa

Função que retorna a idade de uma pessoa

function idade(Nascimento,DataAtual:string):Integer;
var
idade,dian,mesn,anon,diaa,mesa,anoa:word;
begin
decodedate(StrToDate(DataAtual),anoa,mesa,diaa);
decodedate(StrToDate(Nascimento),anon,mesn,dian);
idade := anoa – anon;
if mesn > mesa then
begin
idade := idade;
end;
if(mesn > mesa) and (dian > diaa)then
begin
idade := idade;
end;
result := idade;
end;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.