Период разложить по дням

Пытаюсь период разложить по дням. Период указан на форме отчета (Объект.Дата1 и Объект.Дата2). Но почему-то теряется последний день периода. Например, указываю на форме период:
Дата1 = 01.12.2017
Дата2 = 31.12.2017
В результирующей ТЗ дня 31.12.2017 нет! Где ошибка?

ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("День");
    ТЗ.Колонки.Добавить("Месяц");

    //Переберем все даты за период
    ТекДат = НачалоДня(Объект.Дата1);

    Пока Не ТекДат = НачалоДня(Объект.Дата2) Цикл

        //Добавим текущую дату в таблицу периодов
        НовСтр = ТЗ.Добавить();
        НовСтр.День = ТекДат;
        НовСтр.Месяц = Месяц(ТекДат);

        ТекДат = ТекДат+86400;//Добавим 1 День

        Количество1 = 0;

    КонецЦикла;
    ТЗ.ВыбратьСтроку();