vbs编程问题

来源：百度知道 编辑：UC知道 时间：2024/07/05 08:30:45
Dim dtDate
dtDate=InputBox("请输入需要检查的日期","日期检查程序",Date())
If dtDate<>""Then
If Weekday(dtDate)=2 Then
MsgBox"不上班",vbinformation,"日期检查程序"
Else
MsgBox"上班",vbinformation,"日期检查程序"
End If
End If

要将其中星期一不上班变为多天应该怎么办?

呵呵~~看电脑爱好者的吧~~上面有啊~~
Dim dtDate
dtDate=InputBox("请输入需要检查的日期","日期检查程序",Date())
If dtDate<>""Then
If Weekday(dtDate)=2 Then
MsgBox"不上班",vbinformation,"日期检查程序"
ElseIf Weekday(dtDate)=3 Then
MsgBox"不上班",vbinformation,"日期检查程序"
else
MsgBox"上班",vbinformation,"日期检查程序"
End If
End If
End If
这样应该就行了,用elseif 就可以了~~不行的话找我,电脑爱好者上有介绍这个elseif