while ($i<=$dateslots[$len-1]) {
      ($y,$m,$d)=$object->split_date($i);
      $i=$object->get_next_date(+$y,$m,$d,1))