function RetornarPrimeiroDiaMes (Data: TDateTime): TDateTime;
var
  Dia, Mes, Ano: Word;
begin
  DecodeDate (Data, Ano, Mes, Dia);
  Result := EncodeDate (Ano, Mes, 1);
end;