Количество воскресений в месяце.

1С v8

11.04.13

✎

10:10

Как можно просчитать сколько воскресений в месяце?
Хотел взять за основу "Производственный календарь", но столкнулся с праздничными днями. Так в январе с 1 по 8 стоят праздничные.
Как быть?

1 SherifSP

11.04.13

✎

10:11

(0) Будь мужиком блеать

2 Wobland

11.04.13

✎

10:12

праздничное воскресенье считается понедельником?

3 wise

11.04.13

✎

10:13

создай СВОЙ календарь...

4 spiller26

11.04.13

✎

10:15

(4) кто его будет заполнять?

5 patapum

11.04.13

✎

10:16

(0) посмотреть день недели первого дня в месяце. исходя из этого вычислить первое воскресенье. прибавлять к нему неделю до тех пор, пока не вылезет из месяца. календари то на хрена?

6 spiller26

11.04.13

✎

10:17

(5) Точняк, как то об этом не подумал.
Сенкс.

7 wise

11.04.13

✎

10:17

(4) заполни ОДИН раз на 5 лет вперёд.

8 mikecool

11.04.13

✎

10:19

(6) бгг, судя по всему совсем не подумал, или подумал но не о том

9 kosts

11.04.13

✎

10:20

Что-то вроде целое от деления (количества дней минус номер по порядку первого воскресения) на 7

10 Dmitrith

11.04.13

✎

10:29

Функция КолВоВоскресений(НачДата,КонДата)
ТекДата = НачДата;
Дней = 0;
Пока ТекДата <= КонДата Цикл
Если ДеньНедели(ТекДата)=7 Тогда
Дней = Дней + 1;
КонецЕсли;
ТекДата = ТекДата + 60*60*24;
КонецЦикла;

Возврат Дней;
КонецФункции

11 0xFFFFFF

11.04.13

✎

10:35

(10) ну и нафига цикл
в одну строку делается
Окр((КонецДня(Дата(13,5,20)) - КонецНедели(Дата(13,4,11)))/86400/7 + 0.5,0)

12 0xFFFFFF

11.04.13

✎

10:36

с округлением только надо перепроверить. в какую там сторону и чего... но принцип надеюсь понятен

13 Живой Ископаемый

11.04.13

✎

10:39

2(0) а что не так с праздниками? они перестают быть воскресеньями?