ник: Explorer
DateDiff "ww" от первого понедельника текущего года к нужной дате (или точнее Format(Date(),"ww")- это и будет номер недели
остальное от лукавого - т.е. это уже не "номер недели" а может быть "полная неделя в месяце" или еще как
вообще зачем это? если месяц начинается в субботу - это не значит что в нем на неделю больше