Issue #922: remove milliseconds from exported date/time values in Excel mode

This commit is contained in:
Ansgar Becker
2024-10-10 17:24:47 +02:00
parent 59ac406c36
commit 0d5ad92b61

View File

@ -573,8 +573,9 @@ begin
// Escape encloser characters inside data per de-facto CSV. // Escape encloser characters inside data per de-facto CSV.
if not Encloser.IsEmpty then if not Encloser.IsEmpty then
Result := StringReplace(Result, Encloser, Encloser+Encloser, [rfReplaceAll]); Result := StringReplace(Result, Encloser, Encloser+Encloser, [rfReplaceAll]);
// Remove milliseconds from date/time values, unsupported by Excel. See issue #922
if DataType.Category = dtcTemporal then begin if DataType.Category = dtcTemporal then begin
Result := ReplaceRegExpr('\.(\d+)$', Result, FormatSettings.DecimalSeparator + '$1', True); Result := ReplaceRegExpr('\.(\d+)$', Result, '');
end; end;
end; end;