DateSeparator & FormatSettings

[hafedh-trimeche]

This code would be changed

          if IsDate(txt) then
          begin
            if BiDiMode = bdRightToLeft then
            begin
              txt := MonthDayYearFormat(txt);
              xlSheet.Range['A4:Z4'].Cells[ARow, ACol + 1].NumberFormat :=
                'yyyy' + DateSeparator + 'mm' + DateSeparator + 'dd';
            end;
          end;

to

          if IsDate(txt) then
          begin
            if BiDiMode = bdRightToLeft then
            begin
              txt := MonthDayYearFormat(txt);
              xlSheet.Range['A4:Z4'].Cells[ARow, ACol + 1].NumberFormat :=
                'yyyy' + FormatSettings.DateSeparator + 'mm' + FormatSettings.DateSeparator + 'dd';
            end;
          end;

[nedich]

Hi @hafedh-trimeche I don't support this project anymore but If you make a merge request about it I could merge it