現在の日付が定義された期間の何週目に属するかどうやって計算しますか?


現在の日付が定義された期間の何週目に属するかどうやって計算しますか?Function CalculateWeekNo(Beginnate、EndDate、InputDate)dim wdate(500,8)z=0 strong=len(CStr(inputdate)-9 inputdate=cdate(CStr(inputdate)、strong Bedete)    if inputdate=i then    x=z    Exit For    end if    if weekday(i)=7 then    z=z+1    end if    nextCalculateWeek No=xend Function[1]