8.х Получить границу недели!

Как получить список недель года и вывести его в поле ввода?
Затем при выборе номера недели в поле в завпрос передавались начдата и кондата этой недели :unsure:

номер = НеделяГода(ТекущаяДата()) ;
КолНедель = НеделяГода(КонецГода(ТекущаяДата()));
Сообщить("Количество недель = "+ КолНедель);
Дата = НачалоГода(ТекущаяДата());
ш = 1;
Пока 1 Цикл

Дата = Дата+604800;
Сообщить("№ недели:" + Строка(ш) + " Дата: "+Строка(Дата));
ш = ш + 1;
Если ш = КолНедель Тогда
прервать;
КонецЕсли;
КонецЦикла;

Получаешь номер и начало недели, чтоб узначть конец недели береш
КонецНедели(НачалоНедели);
и все
)))

Спасиб,сделал уже