程序中有一个小问题

Question

各位高手：
      我的程序中，要显示今天是星期几的那一步有问题，必须在NOW后减1才行，否则就总多一天。请帮解决一下！
Private Sub Command1_Click()
End
End SubPrivate Sub Option1_Click()
w$ = Weekday(Now - 1)
Text1.Text = "今天是星期" + w$
End SubPrivate Sub Option2_Click()
d$ = Day(Now)
Text1.Text = "今天是" + d$ + "号"
End SubPrivate Sub Option3_Click()
m$ = Month(Now)
Text1.Text = "这月是" + m$ + "月份"
End SubPrivate Sub Option4_Click()
y$ = Year(Now)
Text1.Text = "今年是" + y$ + "年"
End Sub

Answer 1

我也是新学的VB，我想可能问题是这样的，在VB 中用国外的习惯，一周的第一天是星期日，然后才是星期一，……，六。
所以呢，weekday()返回的是从1--7的整数，所以必须减一，但是星期日应该返回0啊，
不懂！
望高手指点！

Answer 2

Me.Print Weekday(Now, vbMonday)
weekday 有两个参数，第二个参数用来指定一周中星期几为第一天。
默认值为vbSunday  ，你没有指定那个参数，所以才会出现那个问题！可以试一下我以上的代码。

Answer 3

谢谢CSDNREN，新手上路请多指教。