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

fpspreadsheet: Adds a forgotten part for date/time support

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2264 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-01-23 13:52:43 +00:00
parent 09153c582d
commit 624d9b3283
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpspreadsheet/fpspreadsheet.pas
View File

@@ -652,8 +652,21 @@ end;
@return True if the cell is a datetime value, false otherwise @return True if the cell is a datetime value, false otherwise
} }
function TsWorksheet.ReadAsDateTime(ARow, ACol: Cardinal; out AResult: TDateTime): Boolean; function TsWorksheet.ReadAsDateTime(ARow, ACol: Cardinal; out AResult: TDateTime): Boolean;
var
ACell: PCell;
Str: string;
begin 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; end;
{@@ {@@