From e3bb7c1efaef965c0ca0de321ea15502b81c7a4b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 1 Jul 2015 09:07:16 +0000
Subject: [PATCH] fpspreadsheet: Fix formatting of date as weekday

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4200 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpsnumformat.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/fpspreadsheet/fpsnumformat.pas b/components/fpspreadsheet/fpsnumformat.pas
index 0027308a5..39b3c5d5f 100644
--- a/components/fpspreadsheet/fpsnumformat.pas
+++ b/components/fpspreadsheet/fpsnumformat.pas
@@ -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: