Есть задача - узнать номер недели. Количество недель может быть либо 52 либо 53. Есть стандарт ИСО который говорит, что первый день недели это понедельник, а первая неделя года - это та, на которую попадает 4 января.
Соответственно пишу функцию:
Week_number=DatePart("ww", Now, vbMonday, vbFirstFourDays)
Все отлично работает, пока не наступает 31-Дек-2007. По календарю это понедельник, и на эту же неделю приходится 4-Янв-2008, то есть неделя считается первой в 2008 году. Функция DatePart упорно считает, что 31-Дек-2007 это 53 неделя. В чем может быть проблема?

Ммм.. А чем дело то кончилось? Я знаю, что календари не совпадают. Мне надо считать по стандарту ИСО. И функция DatePart нормально исполняет свои обязанности пока не наступает 31-дек-2007 или 31-дек-2035. Тут у DatePart происходит сбой и она настойчиво предлагает считать 31 декабря (понедельник в указанных годах) как 53 неделю, а 1 января (вторник в указанных годах) как 1 неделю. Так я о том, были ли у кого похожие проблемы? Или у меня что-то неправильно написано, или функция барахлит?

Короче, обманули DatePart на четыре кулака на случай расчета по стандартам ИСО для 31-дек-2007 года дополнительным чеком на номер недели.Барахлит функция, ой барахлит...