Функция НеделяГодаПоISO8601(Знач Дата, Год=Неопределено) Экспорт

    Если ДеньНедели(НачалоГода(Дата)) <= 4 тогда //если первая неделя года начинается до четверга, т.е. в ней есть четверг

        //значит год начинается с первой недели

        Год = Год(Дата);

        Неделя = НеделяГода(Дата);

        Возврат Неделя;

    Иначе

        //год начинается с последней недели прошлого года

        Неделя = НеделяГода(Дата)-1;

        

        Если Неделя = 0 тогда //если это до первой недели года

            Неделя = НеделяГодаПоISO8601(НачалоГода(Дата)-1, Год); //значит это последняя неделя прошлого года

        Иначе

            Год = Год(Дата);

        КонецЕсли;

    КонецЕсли;

    

    Возврат Неделя;

КонецФункции



// Более короткий вариант:

Функция НеделяГода_ISO8601(Дата)       

    Корректировочная = НеделяГода(Дата(Год(Дата),1,4)) - 1;

    Результат = НеделяГода(Дата) - Корректировочная;

    Результат = ?(Результат = 0, НеделяГода_ISO8601(ДобавитьМесяц(КонецГода(Дата), -12)), Результат);    

    Возврат Результат;          

КонецФункции   

  //Как из номера, числа недели вернуть первую Дату этой недели?

Функция ДатаПоНомеруНедели(НомерНедели,   Год = Неопределено)

   Возврат НачалоНедели(Дата(?(Год=Неопределено, Год(ТекущаяДата()), Год),1,1)+(НомерНедели-НеделяГода(Дата(?(Год = Неопределено, Год(ТекущаяДата()), Год), 1, 1))) * 604800);

КонецФункции



//ПРИМЕРЫ ОБРАЩЕНИЯ:

ТекДата = ТекущаяДата();

Сообщить("Текущая Дата - "+Строка(ТекДата));

Сообщить("Неделя года - "+Строка(НеделяГода(ТекДата)));

Сообщить("--------------------------");

Сообщить(ДатаПоНомеруНедели(НеделяГода(ТекДата)));

Сообщить(ДатаПоНомеруНедели(НеделяГода(ТекДата), 2005));



// В окно сообщений будет выведено:

//

// Текущая Дата - 20.08.2010 0:00:00

// Неделя года - 34

// ----------------------------

// 16.08.2010 0:00:00

// 15.08.2005 0:00:00