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

fpspreadsheet: Fix usage of UTC in ODS meta data.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7581 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-28 18:01:17 +00:00
parent ea91b7fca5
commit 7015c9fa8c
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/fpsopendocument.pas
View File

@ -5819,13 +5819,15 @@ begin
if book.MetaData.DateCreated > 0 then if book.MetaData.DateCreated > 0 then
begin begin
s := FormatDateTime(ISO8601FormatExtended, book.MetaData.DateCreated); // ODS stored the creation date in UTC.
s := FormatDateTime(ISO8601FormatExtendedUTC, book.MetaData.DateCreated);
AppendToStream(FSMeta, Format( AppendToStream(FSMeta, Format(
'<meta:creation-date>%s</meta:creation-date>', [s])); '<meta:creation-date>%s</meta:creation-date>', [s]));
end; end;
if book.MetaData.DateLastModified > 0 then if book.MetaData.DateLastModified > 0 then
begin begin
// Date of last modification is NOT UTC.
s := FormatDateTime(ISO8601FormatExtended, book.MetaData.DateLastModified); s := FormatDateTime(ISO8601FormatExtended, book.MetaData.DateLastModified);
AppendToStream(FSMeta, Format( AppendToStream(FSMeta, Format(
'<dc:date>%s</dc:date>', [s])); '<dc:date>%s</dc:date>', [s]));