UC知道求一段到2009年春节的倒计时vb代码
来源：百度知道 编辑：UC知道 时间：2024/05/14 16:53:16
打开网页，会弹出距离2009年春节的天数即可，高手高调些哈！
<%@ Language=VBScript %>
<html>
<title>
倒记时间
</title>
<body>
<%
response.write " 离2009年春节还有"
response.write "<font color=#993300><u>"
'调用DateDiff函数,计算日期间隔.
response.write DateDiff("d",Date(),"09-01-26")
response.write "</font></u>"
response.write "天"
%>
</body>
</html>
Private Sub Timer1_Timer()
Dim d As String, h As String, m As String
d = Format(DateDiff("d", Now, #1/26/2009 11:59:59 PM#)) - 1
h = 24 - Hour(Time) + 7
If Hour(Time) > 8 Then h = 24 - Hour(Time) + 7
If Hour(Time) <= 8 Then h = 8 - Hour(Time)
Label1.Caption = "距离过年还有" & d & "天" & h & "小时" & 59 - Minute(Time) & "分钟" & 59 - Second(Time) & "秒"
End Sub