Народ! Поделитесь пожалуйста функцией для вычисления номера недели в году по указанной дате, встроенную функцию НеделяГода() не предлагать, она считает начиная с первого дня в году а надо исходя из правила: первой рабочей неделей года считается та, на которую выпадает первый четверг года (или 4 января, если хотите).

(0) Написать тяжело? Будем сидеть и ждать пока кто-то подаст?

первой рабочей неделей года считается та, на которую выпадает первый четверг года.

Вот у вас Евреев и с Пасхой все не так. как не щапрограммирована ситсемная функция - делайте календари. в ам в помощь

Календари, и к ним регистр значений - или свой календарь придумывайте из 750 суток и не насилуйте 1с

(1) ага

(4) Писать одну строчку. Шесть лет на форуме бамбук курил? Программисты мля.

Пятница!!!

Ну, времени с открытия темы прошло достаточно, написать, отладить, проверить, продать. Тему можно закрывать ))

DDwe - монголия какая по счету республика?

по какому стандарту? Европейскому?

Функция ЕвропейскаяНеделяГода(дНужнаяДата) ЭКСПОРТ
Если НЕ ЗначениеЗаполнено(дНужнаяДата) Тогда
   Возврат 0;
КонецЕсли;
чДеньНеделиНачалаГода = ДеньНедели(НачалоГода(дНужнаяДата));
Если чДеньНеделиНачалаГода <= 4 Тогда
   чСмещение = 0;
Иначе
   чСмещение = 1;
КонецЕсли;
чЕвропейскаяНеделя = НеделяГода(дНужнаяДата) - чСмещение;
Если чЕвропейскаяНеделя = 0 Тогда
   Возврат НеделяГода(НачалоГода(дНужнаяДата) - 1);
Иначе
   Возврат чЕвропейскаяНеделя;
КонецЕсли;
КонецФункции

да кто ж вас так заставил коверкать имена переменных? в институе дельфи преподавали?

(11) Завидуйте молча, мусье

(10)Вот это зачем

"Если чЕвропейскаяНеделя = 0 Тогда
   Возврат НеделяГода(НачалоГода(дНужнаяДата) - 1);
Иначе" ?

(11) +100500

Если НЕ ЗначениеЗаполнено(дНужнаяДата) Тогда
   Возврат 0;
КонецЕсли;

я уже тут отсановился компилировать - функция явно выдает ложный результат

и конечно же она должна быть ЭКСПОРТ

(16) А как же без этого )))

ты коммент оставишь? ромик ждет

фирсов

(18) ?

Счастливый ТС ушел пользоваться ))

забей ищу тут одного под ником ЗАпись_ДАмпа. любит ники менять

не пробегал в последних топиках? или под ником Pistol?
шибко много знает, прикидывается программистом. и даже в 1с что странно.

(18) Подождет до вечера

(16) наблюдаю у вас обычный случай мозаичной акцентуации: шизоидная+демонстративная.

(25) +Чайник Рассела
Пока все гундели и ныли, сделал функцию для лентяя из (0)
Так бы все отвечали ))

(10) Спасибо!

(10)
единственная поправка в функции
вместо
Если чЕвропейскаяНеделя = 0 Тогда
   Возврат НеделяГода(НачалоГода(дНужнаяДата) - 1);
надо
Если чЕвропейскаяНеделя = 0 Тогда
   Возврат ЕвропейскаяНеделяГода(НачалоГода(дНужнаяДата) - 1);

и тогда получается замечательная рекурсия :)

(10) Мне такую же отсыпьте в СКД, я ее в поля в выражение представления запилю.
А вообще, это эпопея уже сто лет длится, 1С так и не решилась поддерживать российский ГОСТ аппаратно?

не врублюсь в гост, идея такова, что если 1е января позже четверга, то неделя начинается со след. понедельника, а если меньше либо равно четвергу, то это первая неделя?