此代码错在哪里？好像不容易解决啊！大家来试试！见下图

Question

大家看，星期错了，今天应该星期天！我的代码错在哪里呢？
请朋友们贴出具体代码，谢谢了！
我把代码贴出来，便于大家修改：
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub

Answer 1

使用系统默认的就好了。不要指定vbMonday

http://www.zhujiangroad.com/program/VbScript/56458.html