摘要:某年的第幾週星期日是幾月幾號
'僅供>=2000之後用
s="0201" '=>輸入值，0201表示2002年第1週
s2 = cint(DatePart("w","20" & mid(s,1,2) & "-1-1",2)) '每年的1/1是星期幾
s1= DateAdd("ww",Cint(mid(s,3,2))-1,Cdate("20" & mid(s,1,2) & "-1-1")) '第n週的星期s2的日期
s3 = DateAdd("d",-s2,s1)
Value = "20" & mid(s,1,2) & "-1-1是星期" & s2 & ",20" & mid(s,1,2) & "的第" & mid(s,3,2) & "週的星期日是" & s3
可供應證的網站 http://time.rootinfo.com.tw/
既然走了! 就勇往的去 ......
