Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quarta-feira, 18 de julho de 2012

DELPHI - Retornando a idade (Ano Separado de Mês)

Reações: 


//ATLabs 18-07-2012
// Declarar na Uses: DateUtils

function RetornaIdade(DataNasc: TDate): Double;
var
  Anos, Meses: Integer;
begin
  Result := -1;
  try
    if DataNasc <= Now then
    begin
      Anos := YearsBetween(Now, DataNasc);
      Meses := MonthsBetween(Now, DataNasc) - (Anos * 12);
      if (Anos = 0) and (Meses = 0) then
         Result := 0
      else
      begin
        if (Meses = 0) then
        Result := Anos
        else
        Result := Anos + (Meses * 0.1) ;
      end;
    end
    Else
    Result := 0;
  Except
  End;
end;


//Testando:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := FloatToStr(RetornaIdade(DateTimePicker1.Date));
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer