以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何获得今天是今年的第几周？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58601)
--  作者：雁过不留痕8
--  发布时间：2014/10/20 16:22:00
--  如何获得今天是今年的第几周？
date成员中只有year month day成员，没有week成员，如果获得今天是今年的多少周，求帮忙
--  作者：有点甜
--  发布时间：2014/10/20 16:25:00
--  

Dim d As Date = Date.Today

msgbox(DatePart("ww" , d))
msgbox(WeekDayName(weekday(d)))
--  作者：雁过不留痕8
--  发布时间：2014/10/21 11:40:00
--  
Dim d As Date = Date.Today
Dim t5 As WinForm.TextBox = e.Form.Controls("TextBox5")
t5.text=DatePart("ww",d))

甜老师，为什么这样不行？
--  作者：有点甜
--  发布时间：2014/10/21 11:44:00
--  
Dim d As Date = Date.Today
Dim t5 As WinForm.TextBox = e.Form.Controls("TextBox5")
t5.text=DatePart("ww",d)
--  作者：zsslly
--  发布时间：2016/4/19 0:01:00
--  
看看