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