- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]weekday不是有效值？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62539)
-- 发布时间：2015/1/4 9:54:00
-- [求助]weekday不是有效值？
systemidle代码:
With CurrentTable
Dim Str1 As String = "当前登录用户: " & User.Name & "你好!欢迎使用BDSMS系统."
Str1 = Str1 & " " & "今天是:" & Date.now
Str1 = Str1 & " " & WeekDayName(Date.Today.DayOfWeek)
StatusBar.Message1 = Str1
End With
此主题相关图片如下：weekday.png
-- 发布时间：2015/1/4 9:58:00
--
要加1
msgbox(WeekDayName(Date.Today.DayOfWeek+1))
-- 发布时间：2015/1/4 10:01:00
--
以下是引用有点甜在2015-1-4 9:58:00的发言：
要加1
msgbox(WeekDayName(Date.Today.DayOfWeek+1))
如果加一，那么好像日期不对啊。如附件：
此主题相关图片如下：显示5.png
-- 发布时间：2015/1/4 10:04:00
--
不可能。我测试就是正确的。
-- 发布时间：2015/1/4 10:07:00
--
以下是引用有点甜在2015-1-4 10:04:00的发言：
不可能。我测试就是正确的。
不可能。我测试就是正确的。
今天是星期天吧，
执行msgbox(WeekDayName(Date.Today.DayOfWeek+1))显示的是星期一。
此主题相关图片如下：显示的是星期一.png
-- 发布时间：2015/1/4 10:15:00
--
这样写
msgbox(WeekDayName(Date.Today.DayOfWeek+1, False, vbSunday))
或者
msgbox(Format(Date.now, "yyyy/MM/dd HH:mm:ss dddd"))