I use 'ExcelLocaltime' from Spreadsheet::ParseExcel::Utility and sprintf to reformat the date:

$data_cell_val = $data_cell -> {Val};
                
my ($iSec, $iMin, $iHour, $iDay, $iMon, $iYear, $iWDay, $iMSec) = Exce
+lLocaltime ($data_cell_val);
$iYear += 1900;            # $iYear is number of years since 1900
$iMon  += 1;            # $iMon (month) is zero indexed
$data_cell_val = sprintf("%04d.%02d.%02d", "$iYear", $iMon, $iDay);
[download]