减小字体
增大字体- ·上一篇文章：wincc中使用vbs的常用函数
- ·下一篇文章：全面了解系统中svchost.exe文件
- ·百度中搜索更多的关于“中考倒计时终极版(可自动刷新) HTML + VBS”相关内容
- ·谷歌中搜索更多的关于“中考倒计时终极版(可自动刷新) HTML + VBS”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
中考倒计时终极版(可自动刷新) HTML + VBS
<!--中考倒计时终极版！By ChiChou ,a fifteen computer lover-->
<script language=vbscript>
<!--
Dim MyDate '结果日期
Dim DateSub '时间差
Dim DD '相差天数
Dim HH '相差小时数
Dim MM '相差分数
Dim SS '相差秒数
Dim strInfoTip '标签提示
myDate = CDate("2008-6-24") '今年中考在 2008 年 6 月 24 日！过了他我就解放了！
Sub Viewtime()
DateSub = DateDiff("s",Now,myDate)
DD = Fix(DateSub/(60 * 60 * 24))
HH = Fix((DateSub - DD * 60 * 60 * 24)/(60 * 60))
MM = Fix((DateSub - DD * 60 * 60 * 24 - HH * 60 * 60)/60)
SS = Fix(DateSub - DD * 60 * 60 * 24 - HH * 60 * 60 - MM * 60)
strInfoTip = ""
strInfoTip = strInfoTip + CStr(DD) + "天"
strInfoTip = strInfoTip + CStr(HH) + "小时"
strInfoTip = strInfoTip + CStr(MM) + "分钟"
strInfoTip = strInfoTip + CStr(SS) + "秒"
Timerr.value = strInfoTip
SetTimeout "Viewtime()",1000
End Sub
-->
</script>
<body onload=ViewTime>
<font color="#6699FF">离中考还只剩下</font><font color="#6699FF" size="3"><input type=text value="中考倒计时" name="Timerr" tabindex="0" readonly =true onclick = viewtime></font><font color="#6699FF">了。赶紧努力学习吧！
祝大家考个好成绩，上个好高中！</font>
</body>
