Spreadsheet::WriteExcel -> set_num_format -> DATUM - #74233 (Fragen zu Perl-Modulen)

GoodFella

2007-02-12 00:08

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Hi, ich versuche gerade Spreadsheet::WriteExcel einige Formate beizubringen, hier mein TestScript:

Code (perl): (dl )

#!/usr/bin/perl -w 
use strict; 
use Spreadsheet::WriteExcel; 

my $workbook  = Spreadsheet::WriteExcel->new('c:\test.xls'); 
my $worksheet = $workbook->addworksheet(); 
my $format1 = $workbook->addformat(); 
my $format2 = $workbook->addformat(); 
my $format3 = $workbook->addformat(); 
my $format4 = $workbook->addformat(); 
my $format5= $workbook->addformat(); 
my $format6 = $workbook->addformat();
my $format7 = $workbook->addformat(); 
my $format8 = $workbook->addformat(); 

my @cell_format = ( 'TEXT', 'STANDARD', '#.##', '#.## ¤', '#.## ¤ / # ¤', 'PLZ', 'TT.MM.JJJJ', 'TT.MM.JJ' );

$format1->set_num_format('@');
$format2->set_num_format('0');
$format3->set_num_format('0.00');
$format4->set_num_format('0.00 ¤');
$format5->set_num_format('0 ¤');
$format6->set_num_format('00000');
$format7->set_num_format('dd.mm.yyyy');
$format8->set_num_format('dd.mm.yy');


my $i = -1;
$worksheet->write(0, $i++, $_) for (@cell_format); 

$worksheet->write_string(1, 0, '0123', $format1); 
$worksheet->write_number(1, 1, '0123', $format2); 
$worksheet->write(1, 2, '0123', $format3); 
$worksheet->write(1, 3, '0123', $format4); 
$worksheet->write(1, 4, '0123', $format5); 
$worksheet->write(1, 5, '01234', $format6); 
$worksheet->write(1, 6, '22.6.1980', $format7); 
$worksheet->write(1, 7, '1.12.1900', $format8); 

$workbook->close();

Das Problem besteht bei $format7 und $format8, jene werden nach öffnen der Exceldatei nicht wie erwartet als "22.06.1980" bzw. "01.12.00" dargestellt sondern als "22.6.1980" bzw. "1.12.00" ... Schaut man sich die Zelleigenschaften unter Excel an, sollte es da kein Problem geben, das Format ist korrekt. Das kommt mir so vor wie bei ->write_string, dass man trotz des setzen des '@' = Stringformates statt ->write verwenden muss, damit auch wirklich ein String in Excel angezeigt wird. Allerdings: Editiert man die beiden Datumsfelder in Excel und wechselt dann in eine andere Zelle, wird das Datum korrekt formatiert, so wie erwartet.
Ich glaube, Spreadsheet::WriteExcel schreibt irgendwie Anzeigerohdaten anstatt echte Daten in die Datei .. oder so ähnlich :)
ein ->write_date gibts jedenfalls nicht :P

Weiss jemand, wie ich das Datum trotzdem richtig formatiert in die Exceldatei bekomme oder hat vielleicht Hintergrundinfos wie Excel da funktioniert?

[EDIT]
Auf http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel/lib/Spreadsheet/WriteExcel.pm#set_num_format() stehen Beispiele dazu, jedoch werden da keine Datumsangaben geschrieben sonden sowas hier:

Quote
$format07->set_num_format('mm/dd/yy');
$worksheet->write(6, 0, 36892.521, $format07); # 01/01/01

$format08->set_num_format('mmm d yyyy');
$worksheet->write(7, 0, 36892.521, $format08); # Jan 1 2001

$format09->set_num_format('d mmmm yyyy');
$worksheet->write(8, 0, 36892.521, $format09); # 1 January 2001

Habs nicht getestet, aber daran wirds wohl liegen. Bleibt die Frage: Wie rechne ich Datumsangaben der Form DD.MM.YYYY in diese Zahl, die wohl irgendwie eine Zeitspanne beschreiben soll, um?

[EDIT2]
Auf http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel/lib/Spreadsheet/WriteExcel.pm#DATES_IN_EXCEL steht:

Quote
Dates and times in Excel are represented by real numbers, for example "Jan 1 2001 12:30 AM" is represented by the number 36892.521.

The integer part of the number stores the number of days since the epoch and the fractional part stores the percentage of the day.
...
See also the Spreadsheet::WriteExcel::Utility module that is included in the distro and which includes date handling functions and the DateTime::Format::Excel module, http://search.cpan.org/search?dist=DateTime-Format-Excel which is part of the DateTime project and which deals specifically with converting dates and times to and from Excel's format.

Werds mal damit versuchen, sage dann Bescheid obs geklappt hat.

[EDIT3]
Bescheid.
Installieren per ppm konnte ich knicken, weil nicht aufgeführt, später ist mir dann der Grund dafür aufgefallen: es gibt für dieses Modul einen unbearbeiteten Bug-Report, der seit 2004 vom Autor ignoriert wurde; dieser Bug macht das ganze Modul unbenutzbar.
Vor allem ... warum erst kompliziert umrechnen, wenn Excel das eigentlich auch allein kann... nur Spreadsheet::WriteExcel kanns nicht (oder habe ich etwas übersehen?)
Vorschläge? Alternativen?\n\n