paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix formatting of date as weekday

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4200 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2015-07-01 09:07:16 +00:00
parent 10ee3da8f0
commit e3bb7c1efa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpsnumformat.pas
View File

@ -868,8 +868,8 @@ begin
case section.Elements[el].IntValue of
1: result := result + IntToStr(day);
2: result := Result + IfThen(day < 10, '0'+IntToStr(day), IntToStr(day));
3: Result := Result + fs.ShortDayNames[DayOfWeek(day)];
4: Result := Result + fs.LongDayNames[DayOfWeek(day)];
3: Result := Result + fs.ShortDayNames[DayOfWeek(AValue)];
4: Result := Result + fs.LongDayNames[DayOfWeek(AValue)];
end;
nftHour: