perl -we 'use Date::Manip; $input = "200604131145"; $output = UnixDate(DateCalc(ParseDate($input), "15 minutes"), "%Q%H%M"); warn $output;'