unction RetornarDia (Data: TDateTime): Integer;
var
  Dia, Mes, Ano: Word;
begin
  DecodeDate (Data, Ano, Mes, Dia);
  Result := Dia;
end;

function RetornarMes (Data: TDateTime): Integer;
var
  Dia, Mes, Ano: Word;
begin
  DecodeDate (Data, Ano, Mes, Dia);
  Result := Mes;
end;

function RetornarAno (Data: TDateTime): Integer;
var
  Dia, Mes, Ano: Word;
begin
  DecodeDate (Data, Ano, Mes, Dia);
  Result := Ano;
end;