7,762
社区成员
发帖
与我相关
我的任务
分享
Dim datInput As Date
datInput = InputBox("请输入日期(月-日-年):")
Dim intResult As Integer
intResult = Weekday(datInput, vbMonday)
MsgBox intResult
Option Explicit
Private Sub Command1_Click()
If Not IsDate(Text1.Text) Then
MsgBox "输入错误!"
Else
Dim intResult As Integer
intResult = Weekday(Text1, vbMonday)
MsgBox intResult
End If
End Sub