Foxtable(狐表)用户栏目专家坐堂 → [求助]如何显示星期


  共有3509人关注过本帖树形打印复制链接

主题:[求助]如何显示星期

帅哥哟,离线,有人找我吗?
石四
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
[求助]如何显示星期  发帖心情 Post By:2013/9/8 17:27:00 [显示全部帖子]

希望显示登陆时间和星期,这样不行:

Dim lb3 As WinForm.Label
Dim d As Date = Date.Today
lb3 = e.Form.Controls("Label2")
lb3.Text = "登录日期:" & Date.Today() & d.DayOfWeek
没报错,但是只显示日期,没显示星期。

正确的代码是怎样的?


 回到顶部
帅哥哟,离线,有人找我吗?
石四
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2013/9/12 14:40:00 [显示全部帖子]

按楼上的指点,改成:

 

Dim lb3 As WinForm.Label
Dim s() As String = {"日","一","二","三","四","五","六"}

lb3 = e.Form.Controls("Label2")
lb3.Text = "登录日期:" & Date.Today() & " 星期 " & s(Date.Today().DayOfWeek)


 回到顶部