如何计算出当前日期属于定义时间段内的第几星期？FunctionCalculateWeekNo(BeginDate,EndDate,InputDate)dimwdate(500,8)z=0x=0strlong=len(CStr(inputdate))-9inputdate=cdate(left(CStr(inputdate),strlong))fori=cdate(BeginDate)tocdate(EndDate)  ifinputdate=ithen  x=z  ExitFor  endif  ...