From 624d9b32837765fccfb7265c0cf1fc54446a2b62 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 23 Jan 2012 13:52:43 +0000
Subject: [PATCH] fpspreadsheet: Adds a forgotten part for date/time support

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

diff --git a/components/fpspreadsheet/fpspreadsheet.pas b/components/fpspreadsheet/fpspreadsheet.pas
index 7f45580cf..14e36f6c1 100755
--- a/components/fpspreadsheet/fpspreadsheet.pas
+++ b/components/fpspreadsheet/fpspreadsheet.pas
@@ -652,8 +652,21 @@ end;
   @return True if the cell is a datetime value, false otherwise
 }
 function TsWorksheet.ReadAsDateTime(ARow, ACol: Cardinal; out AResult: TDateTime): Boolean;
+var
+  ACell: PCell;
+  Str: string;
 begin
+  ACell := FindCell(ARow, ACol);
 
+  if (ACell = nil) or (ACell^.ContentType <> cctDateTime) then
+  begin
+    AResult := 0;
+    Result := False;
+    Exit;
+  end;
+
+  AResult := ACell^.DateTimeValue;
+  Result := True;
 end;
 
 {@@