Reading time from an excel sheet.

[rajendra]

Hello All,

There is an excel sheet which has list of events given in time. I'm trying
to read this time using win32 module
When I do so, I get the time in General format (0.36525874).
But I want to read in hh-mm-ss. How can I achieve this?.

With Rgds,
Raj

 

[Chad Hanna]

Hello All,

There is an excel sheet which has list of events given in time. I'm trying
to read this time using win32 module
When I do so, I get the time in General format (0.36525874).
But I want to read in hh-mm-ss. How can I achieve this?.

With Rgds,
Raj

Do have a look at the Win32::OLE::Variant docs but my date purposes I
use something like this:

if (ref($field)) {
if ($field->isa("Win32::OLE::Variant")) {
if ($field->Type == VT_DATE) {
$field = $field->Date("d MMM yyyy");
}
else {
warn $field->Type, " Variant type at $row_no $sheet_name\n";
}
}
else {
warn ref($field), " reference at $row_no in $sheet_name\n";
}
}

This allows me to cope with dates before and after 1900.

 

[Darren Dunham]

Hello All,

There is an excel sheet which has list of events given in time. I'm trying
to read this time using win32 module
When I do so, I get the time in General format (0.36525874).
But I want to read in hh-mm-ss. How can I achieve this?.

You could do the math yourself. Excel store time/date events in days
since Jan 0, 1900. So if you're just dealing with times (not dates),
just multiply by 86400 (seconds in a day) to get it in seconds since
midnight.

$ perl -le 'print .36525872 * 24 * 60 * 60'
31558.353408

Then you can use gmtime to convert to a time.

$ perl -MPOSIX -le 'print strftime ("%H:%M:%S", gmtime(.36525872*24*60*60))'
08:45:58

I'll bet some of the time modules will work in "excel time", but I
haven't investigated to know which ones.