主题：[求助]怎么去掉第几周和后面星期几

去掉第几周和后面多余的星期

Dim wk As Integer

Dim d1 As Date = Date.today()

Dim d2 As Date = new Date(d1.year,1,1)

wk = DateDiff("ww",d2,d1)+1

e.Form.Controls("Label8").text =Date.now() & " 第" & wk & "周 " & format(d1,"dddd")'显示时间和星期