my $string1 = '2009-08-26T00:00:00 MEZ';
my $string2 = '2009-08-26T24:00:00 MEZ';
my $err;
my $date1 = ParseDate($string1);
my $date2 = ParseDate($string2);
my $delta = DateCalc($date1,$date2,\$err);