首页 >> 读书频道 >> 电脑 >> 计算某事件要发生时间的倒计时程序
 
· 选择最快的镜像站点
· 设定你的ASP程序的执行
· 用global.asa来
· 用ASP创建PDF文件
· 用FileObject建
· 显示多级目录和文件的源程
· 显示所有环境变量
· 对文件名进行处理的函数
· 检查字符串strSour
· 将半角"转换为中文“的函
· 树型结构在ASP中的简单
· 限制只能中文输入的方法
 
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 红楼梦:120回全本[清
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
· 管理三十六计
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

计算某事件要发生时间的倒计时程序


查看有无更新版本

关键字:代码乐园 2006-8-28

 

时间格式应为:MM/DD/YYYY HH:MM:SS

<%
Function CountDown(dtmWhenEnds)
Dim dtmNow
Dim strTimeLeft

Dim intDiffsR
Dim intDiffmR
Dim intDiffhR
Dim intDiffdR

Dim intDiffsA
Dim intDiffmA
Dim intDiffhA
Dim intDiffdA

Dim strDayS
Dim strHourS
Dim strMinuteS
Dim strSecondS

dtmNow = Now()

If dtmWhenEnds > dtmNow Then

 intDiffsR = DateDiff("s", dtmNow, dtmWhenEnds)
 intDiffmR = intDiffsR \ 60
 intDiffhR = intDiffmR \ 60
 intDiffdR = intDiffhR \ 24
 intDiffsA = intDiffsR - (intDiffmR * 60)
 intDiffmA = intDiffmR - (intDiffhR * 60)
 intDiffhA = intDiffhR - (intDiffdR * 24)
 intDiffdA = intDiffdR

 If intDiffdA = 1 Then
 strDayS = " Day, "
 Else
 strDayS = " Days, "
 End If

 strTimeLeft = strTimeLeft & intDiffdA & strDayS

 If intDiffhA = 1 Then
 strHourS = " Hour, "
 Else
 strHourS = " Hours, "
 End If

 strTimeLeft = strTimeLeft & intDiffhA & strHourS

 If intDiffmA = 1 Then
 strMinuteS = " Minute, "
 Else
 strMinuteS = " Minutes, "
 End If

 strTimeLeft = strTimeLeft & intDiffmA & strMinuteS

 If intDiffsA = 1 Then
 strSecondS = " Second "
 Else
 strSecondS = " Seconds "
 End If

 strTimeLeft = strTimeLeft & intDiffsA & strSecondS

Else
 strTimeLeft = "Countdown has ended"
End If
CountDown = strTimeLeft
End Function
%>

计算某事件要发生时间的倒计时程序

[ 1 ]
计算某事件要发生时间的倒计时程序 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑