function [idxFile] = SaveCoordFromFData_Intervalo (diaInicial, diaFinal, quantos, outFileDir, comInfo)
% 
% Exemplo:
%   idxFile = SaveCoordFromFData_Intervalo ("01-Jan-1989", "31-Dec-1989", 5, "/db/Economia/DataOrg2026_diasX/", 1);
%
% ATENÇÃO: Antes de executar este ficheiro fazer na linha de comandos:
%     global Data1
%     load("/db/Economia/DataOrg2026/NY_19890420__20090420__319_CtR_Rm000s.mat")
%

fileData1 = "/db/Economia/DataOrg2026/NY_19890420__20090420__319_CtR_Rm000s.mat";
% /db/Economia/DataOrg2026/NY_19851025__20251025__148_CtR_Rm000s.mat
  
  global Data1

  if ~ismember('Data1', who('global'))
    fprintf("Não leu o 'Data1', por isso, vai usar '%s'\n", fileData1);
    load fileData1;
    %load /db/Economia/DataOrg2026/NY_19851025__20251025__148_CtR_Rm000s.mat
  end

  [ diaI, diaF ] = getTestDate_WithLen(Data1, diaInicial, quantos, 0);
  %fprintf("diaInicial: %s ; quantos: %d ; diaI: %d ; diaF: %d\n", diaInicial, quantos, diaI, diaF);
  if (diaF < 0)
    fprintf("***** Data inicial é anterior ao início dos dados\n")
    return
  end
  if (diaF > Data1.Date2)
    return
  end
  
  [ x1, diaFim ] = getTestDate_WithLen(Data1, diaFinal, 1, 0);
  if (diaFim < 0)
    fprintf("***** Erro: Data final maior do que a última cotação\n");
    return
  end
  %fprintf("diaI: %d ; diaF: %d ; DiaFim: %d\n", diaI, diaF, diaFim);

  %[outFileDir2, x1, x2] = fileparts(outFileDir);
  endFileDir = sprintf("NY_DataFiles_Len%2.2d_%s_%s.txt", quantos, diaInicial, diaFinal);

  lastChar = extractBetween(outFileDir,strlength(outFileDir),strlength(outFileDir));
  if ispc
    if not(strcmp(lastChar, '\') == 1)
      outFileDir = outFileDir + '\';
    end
  elseif not(ispc)
    if not(strcmp(lastChar, '/') == 1)
      outFileDir = outFileDir + '/';
    end
  end
  idxFile = outFileDir + endFileDir;
  
  f1 = fopen(idxFile, "wt");
  while (diaI <= diaFim)
    if diaI < 0
      break
    end
    diaIstr = Data1.sDate(diaI);
    diaFstr = Data1.sDate(diaF);
    %fprintf("%s(%d) ==> %s(%d)\n", string(diaIstr), diaI, string(diaFstr), diaF);
    [ diaI, diaF ] = getTestDate_WithLen (Data1, Data1.sDate(diaF+1), quantos, 0);
    %fprintf("outFileDir: %s\n", outFileDir);
    [dimC, diasIF, fname] = SaveCoordFromFData(diaIstr, diaFstr, outFileDir, comInfo);
    %fprintf(f1, '%s|%s|%s\n', string(diaIstr), string(diaFstr), fname);
    %break
  end
  fclose(f1);

  fprintf("\nIndice dos ficheiros: %s\n", idxFile)
%[dimC, diasIF, fname] = SaveCoordFromFData (diaIstr, diaFstr, outFileDir, comInfo)

end
