- 1
- 2
- 3
- 4
- 5
Для й = 1 По КонДата-НачДата+1 Цикл
ТекДата = НачДата+й-1;
ДокТ.ВыбратьДокументы(ТекДата, ТекДата);
Пока ДокТ.ПолучитьДокумент() = 1 Цикл
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 1
−119.4
Для й = 1 По КонДата-НачДата+1 Цикл
ТекДата = НачДата+й-1;
ДокТ.ВыбратьДокументы(ТекДата, ТекДата);
Пока ДокТ.ПолучитьДокумент() = 1 Цикл
Копаясь в самописной конфе, с которой сейчас работаю, дописываю, и усердно исправляю чей-то быдлокод, временами нахожу просто уникальные творения.
Пожалуй это творение - вершина извращенной фантазии)
Думаю комментарии излишни)) автор перебирает дни, а потом отдельно по каждому дню делает выборку событий