页:
[1]
|
是判断某天是星期几的vbs,那么输入年月日，显示该日是第一年中的第几天怎么做
演示：[url]http://dushu.jahee.com/cz/date.htm[/url]
<html>
<head>
<title>输入有效的日期</title>
</head>
<body>
输入有效的日期，按一下按钮查出这天是星期几？<br>
<input type="text" name="txtdate"><br>
<input type="submit" name="btn1" value="告诉我是星期几">
<script language="vbscript">
<!--
sub btn1_onclick()
dim dayval,message,mydate,blncheck
blncheck=isdate(txtdate.value)
if blncheck=true then
mydate=datevalue(txtdate.value)
dayval=weekday(mydate)
if dayval=1 then message="星期日"
if dayval=2 then message="星期一"
if dayval=3 then message="星期三"
if dayval=4 then message="星期四"
if dayval=5 then message="星期五"
if dayval=6 then message="星期六"
message="这天是"+message+"."
msgbox message,64,"星期几？"
else
message="键入日期无效"
msgbox message,48,"出错"
end if
end sub
-->
</script>
</body>
</html> |
Powered by Discuz! Archiver 6.1.0
© 2001-2006 Comsenz Inc.
Processed in 0.006015 second(s), 2 queries | |
|
|