pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix meta data reading error of some ods files. Avoid display of metadata zero dates in Excel.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7583 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-28 21:30:12 +00:00
parent c902c41997
commit 25d59b8e88
2 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/source/common/fpsutils.pas
View File

@@ -3185,7 +3185,8 @@ begin
// Strip milliseconds?
p := Pos('.', s);
if (p > 1) then begin
ms := StrToFloat('0' + Copy(s, p, MaxInt), fs);
ms := StrToFloat('0' + Copy(s, p, MaxInt), fs) / SecsPerDay;
s := copy(s, 1, p-1);
end else
ms := 0;
Result := StrToDateTime(s, fs) + ms;