- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么去掉第几周和后面星期几 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80389)
-- 发布时间：2016/1/21 17:28:00
-- [求助]怎么去掉第几周和后面星期几
去掉第几周和后面多余的星期
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")\'显示时间和星期
-- 发布时间：2016/1/21 17:34:00
--
e.Form.Controls("Label8").text = Date.now() & " 第" & wk & "周 "
-- 发布时间：2016/1/21 17:36:00
--
直接用 DatePart 也行
Dim str As String = DatePart("ww" , Date.now)
msgbox(str)
-- 发布时间：2016/1/21 17:41:00
-- 回复：（大红袍）e.Form.Controls("Label8").text = D...
我想要这样显示格式：
2016-1-21 星期四 下午 5：42：20
注：时间是24小时制（最好了）
刚才的代码怎么改，谢谢
[此贴子已经被作者于2016/1/21 17:43:01编辑过]
-- 发布时间：2016/1/21 17:42:00
--
2016-1-21
-- 发布时间：2016/1/21 17:43:00
--
Dim str As String = format(Date.now, "yyyy年MM月dd日 dddd HH:mm:ss")
msgbox(str)
-- 发布时间：2016/1/21 18:03:00
-- 回复：（大红袍）Dim str As String = format(Date.no...
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
Dim str As String = format(Date.now, "yyyy年MM月dd日 dddd HH:mm:ss")
msgbox(str)
这样无限弹出一个 2016年1月21日 下午 6:03：20 窗口
-- 发布时间：2016/1/21 18:41:00
--
赋值啊
Dim str As String = format(Date.now, "yyyy年MM月dd日 dddd HH:mm:ss")
e.Form.Controls("Label8").text = str