周数=INT(（now-dateserial（year（now），1,1））/7)大致写成这样吧有不懂的再问我还有，增加一个判断int（now）-dateserial（year（now），1,1）） mod 7，如果不能整除，要再加1
使用工作表函数：WorksheetFunction.WeekNum(now,vbMonday)
