Hello perl-win32-users,
I use Win32::OLE to read EXCEL files, like this:
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';
our $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open("a.xls");
my $Sheet = $Book->Worksheets(1);
$d = $Sheet->Cells(1,1)->{Value};
and if the cell's text is: 2005-3-26, it returns '2005-3-26', just
what i need. but if the cell's text is : 1900-3-26, it returns
'1900-3-25', if the text is: 1900-1-1, it returns '1899-12-31', one
day difference.
Can anyone tell me the reason?
--
Best regards,
Xia Jian mailto:[EMAIL PROTECTED]
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
