sub get_excel_date
{
    return if not $_[0];
    my $date = shift;
    my @x = localtime($date*24*3600 - 2209143600);
    return sprintf("%04d-%02d-%02d", $x[5]+1900, $x[4]+1, $x[3]);
}