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

fpspreadsheet: Remove fix for Excel's Year-1900 problem because it creates new issues... (issue #38742).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8033 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-05-15 21:38:39 +00:00
parent 1efc3bc6f2
commit e66195efeb
3 changed files with 25 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1043,7 +1043,8 @@ begin
begin
if IsDateTimeFormat(numFmt) then
begin
if not IsTimeIntervalFormat(numFmt) then // no correction of time origin for "time interval" format
if not IsTimeIntervalFormat(numFmt) then
// no correction of time origin for "time" or "time interval" format
number := ConvertExcelDateTimeToDateTime(number, FDateMode);
sheet.WriteDateTime(cell, number);
end