Untitled

Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
   Таблица.Дата КАК Дата1,
   ВЫБОР
       КОГДА СледующаяДата.Дата ЕСТЬ NULL 
           ТОГДА Таблица.Дата
       ИНАЧЕ СледующаяДата.Дата
   КОНЕЦ КАК Дата2
ИЗ
   ВашаТаблица КАК Таблица
ЛЕВОЕ СОЕДИНЕНИЕ ВашаТаблица КАК СледующаяДата
   ПО Таблица.Дата < СледующаяДата.Дата
ГДЕ
   СледующаяДата.Дата ЕСТЬ NULL 
   ИЛИ СледующаяДата.Дата = МИНИМУМ(
       ВЫБРАТЬ
           ВсеДаты.Дата
       ИЗ
           ВашаТаблица КАК ВсеДаты
       ГДЕ
           ВсеДаты.Дата > Таблица.Дата)";

Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
    Сообщить(Результат.Дата1 + " " + Результат.Дата2);
КонецЦикла;