最近有一個(gè)計(jì)算周的需要，看了網(wǎng)上現(xiàn)成的代碼，不太合適，只好自己動(dòng)手了。
默認(rèn)把該年第一個(gè)星期一作為第一周的開(kāi)始。

'計(jì)算某年第一周開(kāi)始日期
function firstday(inputyear)
 for i=cdate(inputyear&"-1-1") to cdate(inputyear&"-1-7")
  if weekday(i)=2 then
   firstday=i
   exit for
  end if
 next
end function
'計(jì)算輸入日期是該年第幾周的函數(shù)
Function CalcWeekNo(InputDate)
 toyear=year(inputdate)
 fday=firstday(toyear)
 if datediff("d",fday,inputdate)<0 then
  fday=firstday(toyear-1)
 end if
 'calcweekno=fday
 daynum=datediff("d",fday,inputdate)
 calcweekno=int(daynum/7)+1
end function
'根據(jù)周數(shù)和年份，計(jì)算該周第一天
function getfst(inputyear,weekno)
 fday=firstday(inputyear)
 getfst=dateadd("d",(weekno-1)*7,fday)
end function