Perl: write custom date format to excel spreadsheet - perl

Question

I would like to know how to update cell with custom date format using perl module Spreadsheet::ParseExcel. I am able to get wrong formatted and unformatted value to variable.
For example:
A1 is 11-9-15 23:00 (unformatted 42317.9583333333)
Needed format is 09.11.2015 23:00 (dd.mm.yyyy hh:mm)
$worksheet->AddCell(0, 0, 42317.9583333333, 'dd.mm.yyyy hh:mm');
I need something like command above but it doesn’t work. Cell is 42317.9583333333 not 09.11.2015 23:00.

Answer 1

# INPUT "2015-10-13 23:47" (dd.mm.yyyy hh:mm) -> OUTPUT "42290,9909722222" (excel epoch 1900)
sub dateStringToExcel {
my $date_excel;
my ($date_string) = #_;
if ( $date_string =~ /\d{4}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|30|31) ([012345][0-9])\:([012345][0-9])/ ) {
print "stringToexcelDate - OK\n";
my ($year, $month, $day, $hour, $min) = ($date_string =~ /(\d+)-(\d+)-(\d+) (\d+):(\d+)/);
$date_excel = LocaltimeExcel( 0, $min, $hour, $day, $month-1, $year-1900 );
} else {
print "stringToexcelDate - FAILED\n";
$date_excel = "Parsing date string ($date_string) failed!";
};
return $date_excel;
};

Answer 2

I did not know about the LocaltimeExcel! function so i did both conversion functions using plain perl.
sub date2excelvalue {
my($day1, $month, $year, $hour, $min, $sec) = #_;
my #cumul_d_in_m = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365);
my $doy = $cumul_d_in_m[$month - 1] + $day1;
#
full years + your day
for my $y(1900..$year) {
if ($y == $year) {
if ($month <= 2) {
#
dont add manually extra date
if inJanuary or February
last;
}
if ((($y % 4 == 0) && ($y % 100 != 0)) || ($y % 400 == 0) || ($y == 1900)) {
$doy++;#
leap year
}
} else {#
full years
$doy += 365;
if ((($y % 4 == 0) && ($y % 100 != 0)) || ($y % 400 == 0) || ($y == 1900)) {
$doy++;#
leap year
}
}
}#
end
for y# calculate second parts as a fraction of 86400 seconds
my $excel_decimaltimepart = 0;
my $total_seconds_from_time = ($hour * 60 * 60 + $min * 60 + $sec);
if ($total_seconds_from_time == 86400) {
$doy++;#
just add a day
} else {#
add decimal in excel
$excel_decimaltimepart = $total_seconds_from_time / (86400);
$excel_decimaltimepart = ~s / 0\. //;
}
return "$doy\.$excel_decimaltimepart";
}
sub excelvalue2date {
my($excelvalueintegerpart, $excelvaluedecimalpart) = #_;
my #cumul_d_in_m = (0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365);
my #cumul_d_in_m_leap = (0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366);
my #cumul_d_in_m_selected;
my($day1, $month, $year, $hour, $min, $sec);
$day1 = 0;#
all days all years
my $days_in_year;
my $acumdays_per_month;
my $daysinmonth;
my $day;
#
full years + your day
for my $y(1900. .3000) {
my $leap_year = 0;#
leap year
my $leap_year_mask = 0;#
leap year
if ((($y % 4 == 0) && ($y % 100 != 0)) || ($y % 400 == 0) || ($y == 1900)) {
$leap_year = 1;#
leap year
#cumul_d_in_m_selected = #cumul_d_in_m_leap;
} else {
$leap_year = 0;#
leap year
#cumul_d_in_m_selected = #cumul_d_in_m;
}
if (($day1 + (365 + $leap_year)) > $excelvalueintegerpart) {
#
found this year $y
$year = $y;
print "year $y\n";
$days_in_year = $excelvalueintegerpart - $day1;
$acumdays_per_month = 0;
print "excelvalueintegerpart $excelvalueintegerpart\n";
print "day1 $day1\n";
print "daysinyear $days_in_year\n";
for my $i(0..$# cumul_d_in_m) {
if ($i == $# cumul_d_in_m) {
$month = $i + 1;#
month 12 December
$day = $days_in_year - $cumul_d_in_m_selected[$i];
last;
} else {
if (($days_in_year > ($cumul_d_in_m_selected[$i])) && ($days_in_year <= ($cumul_d_in_m_selected[$i + 1]))) {
$month = $i + 1;
$day = $days_in_year - $cumul_d_in_m_selected[$i];
last;
}
}
}#
end
for $i months
# end year
last;
} else {#
full years
$day1 += (365 + $leap_year);
}
}#
end
for years interger part comparator
my $total_seconds_inaday;
$total_seconds_inaday = "0\.$excelvaluedecimalpart" * 86400;
$sec = $total_seconds_inaday;
$hour = int($sec / (60 * 60));
$sec -= $hour * (60 * 60);
$min = int($sec / 60);
$sec -= $min * (60);
$sec = int($sec);
return ($day, $month, $year, $hour, $min, $sec);
}
my $excelvariable = date2excelvalue(1, 3, 2018, 14, 14, 30);
print "Excel variable: $excelvariable\n";
my($integerpart, $decimalwithoutzero) = ($1, $2) if ($excelvariable = ~m / (\d + )\.(\d + ) / );
my($day1, $month, $year, $hour, $min, $sec) = excelvalue2date($integerpart, $decimalwithoutzero);
print "Excel Date from value: $day1, $month, $year, $hour, $min, $sec\n";
Enjoy it!