台灣最大程式設計社群網站
線上人數
503
 
會員總數:245785
討論主題:189420
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 週的計算
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
週的計算
價值 : 0 QP  點閱數:383 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

1. 今天是這個月的第幾週:
Function theWeek(theDay)
w = split(theDay,"/")
sWeek = DatePart("ww", w(0) &"/"& w(1) & "/1") 'X月1日是第幾週
eWeek = DatePart("ww",theDay) '今天是第幾週

theWeek = eWeek - sWeek + 1

End Function

2.這個月有幾週:
Function Weeks(theDay)
w = split(theDay,"/")
sWeek = DatePart("ww", w(0) &"/"& w(1) & "/1") 'X月1日是第幾週

thisday = theDay '本月
nextmonth=dateadd("m",1,thisday) '下個月
nDay = DateDiff("d", thisday, nextmonth)

eWeek = DatePart("ww", w(0) &"/"& w(1) & "/" & nDay) 'X月月底是第幾週

Weeks = eWeek - sWeek + 1

End Function


大家好 週的問題又來了...
要如何得知某年某月第幾週是從幾日到幾日呢?(如:2002年10月的第三週日期?)
因為使用者要用週查詢資料,如果可以帶日進去當然就可以查到,但是最小單位到週而已...
而且還要挑掉星期六日,因為...放假!



用相似的步數又好了...
Function tMonday(tYear,tMonth,tWeek)
tDay = tYear & "/" & tMonth & "/1"
firstDay = DateAdd("d",-DatePart("w",tDay)+2,tDay) 'X月一日做為基準日
interV = 7*(tWeek-1) '減掉一表示週間,相隔幾週。因為一日一定是第一週
tMonday = DateAdd("d",interV,firstDay)
End Function

這裡已經挑掉了週六和週日,如果要從週日到週六 可改成:
firstDay = DateAdd("d",-DatePart("w",tDay)+1,tDay)

這樣得出的是那週的星期一,再加上四就是星期五了



本篇文章發表於2002-05-29 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.