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

大家看，星期错了，今天应该星期天！我的代码错在哪里呢？
请朋友们贴出具体代码，谢谢了！
我把代码贴出来，便于大家修改：
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

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

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

http://www.cnblogs.com/ruily/archive/2011/04/25/2027382.html

是weekday函数，而不是weekdayname

https://msdn.microsoft.com/zh-cn/library/82yfs2zh(v=vs.80).aspx

weekday返回的是数字，比如星期四返回4，然后再用weekdayname转换为“星期四”