use Spreadsheet::ParseExcel::Simple;
+use DateTime::Format::Strptime qw(strptime);
+
our $VERSION = '0.01';
sub new {
while ($sheet->has_data) {
my @line = $sheet->next_row;
my $obj = {
- 'date' => $line[0],
+ 'date' => strptime("%d/%m/%Y", $line[0]),
'name' => $line[2],
'extra' => $line[3],
'value' => $line[4],