📄 03_06.htm
字号:
<html>
<head>
<title>Sub过程演示</title>
<SCript language=VBScript>
Sub DayOfWeek()
dim day1
dim temp
day1 = InputBox("请输入一个合法的日期，格式为yy—mm-dd",1)
If Not IsDate(day1) Then
MsgBox "您输入的日期不合法，请重新输入"
Else
temp = WeekDay(Cdate(day1))
Select Case temp
Case 1
Tempstr="星期天"
Case 2
TempStr="星期一"
Case 3
TempStr="星期二"
Case 4
TempStr="星期三"
Case 5
TempStr="星期四"
Case 6
TempStr="星期五"
Case 7
TempStr="星期六"
End Select
MsgBox "您输入的日期是"&Tempstr
End If
End Sub
</script>
<body>
<input type="button" onclick="DayOfWeek()" value="日期判断小程序"></input>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -