VBScript中怎么實(shí)現(xiàn)倒計(jì)時(shí)功能

這篇文章給大家介紹VBScript中怎么實(shí)現(xiàn)倒計(jì)時(shí)功能，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。

---- 要實(shí)現(xiàn)倒計(jì)時(shí)，主要用到的是一個(gè)時(shí)間函數(shù)： DateDIFF()，它的作用是求出兩個(gè)日期之間的時(shí)間間隔。它的格式如下：

DateDIFF(format,Date1,Date2)

---- 其中， format是指返回的格式。我們可以按相差多少天，相差多少小時(shí)，或相差多少秒的格式來(lái)返回。具體格式和意義請(qǐng)參見(jiàn)下表：

格式　　　　　　　　　　　　　 意義
Yyyy　　　　　　　　　　　　　 年
Q　　　　　　　　　　　　　　　一刻鐘
M　　　　　　　　　　　　　　　月
Y　　　　　　　　　　　　　　　一年的一天
D　　　　　　　　　　　　　　　天
W　　　　　　　　　　　　　　　星期
Ww　　　　　　　　　　　　　　 日期
H　　　　　　　　　　　　　　　小時(shí)
M　　　　　　　　　　　　　　　分
S　　　　　　　　　　　　　　　秒

---- 在這里，我們只要求出兩個(gè)時(shí)間之間相差的秒數(shù)，然后可以根據(jù)1 天等于24小時(shí)，1小時(shí)等于 60 分， 1 分等于 60 秒來(lái)求出相差多少天、多少小時(shí)、多少分、多少秒。

---- Date1 和Date2 用來(lái)表示兩個(gè)日期，如果我們要求出 2000年到今天的時(shí)間差，只要把2000 年放在 Date1 的位置，而把現(xiàn)在的時(shí)間放在 Date2 的位置就可以了。

---- 現(xiàn)在在理論上已經(jīng)可行了，但是我們還必須加入一個(gè)標(biāo)簽用來(lái)顯示時(shí)間，而且要加入一個(gè)定時(shí)器來(lái)定時(shí)地刷新標(biāo)簽上的顯示。定時(shí)器的時(shí)間間隔定為多大為合適呢？這沒(méi)有一個(gè)定論，要根據(jù)條件而定。因?yàn)楸境绦虻牡褂?jì)時(shí)是以秒為最小單位的，所以我們必須能夠正確地對(duì)每秒鐘進(jìn)行刷新。也就是說(shuō)，定時(shí)器的間隔必須小于或等于 1000。但是由于定時(shí)器的1000并不是嚴(yán)格地與1秒相等，所以即使設(shè)為1000，也有可能“秒”不會(huì)及時(shí)地刷新，出現(xiàn)間斷跳躍。比如顯示完4秒后應(yīng)該是3秒，然后才是2秒，但是由于刷新不及時(shí)，可能會(huì)出現(xiàn)顯示完 4 秒就顯示2 秒的情況，這就是刷新不及時(shí)造成的（但這并不影響倒計(jì)時(shí)的精確度）。我們?cè)賮?lái)把定時(shí)器的時(shí)間間隔設(shè)的很小看看，設(shè)為1吧，這樣，每隔大約1/1000秒，就會(huì)求一次值，這是決對(duì)精確的。但是又有一個(gè)問(wèn)題，就是如果時(shí)間間隔太小，可能會(huì)搶占太多的系統(tǒng)時(shí)間，對(duì)本來(lái)就很慢的網(wǎng)絡(luò)來(lái)說(shuō)，可是個(gè)不小的負(fù)擔(dān)。如果折中一下，可以把它設(shè)為200，即1秒內(nèi)刷新5次，這就能滿足雙方面的需要了。

---- 我們來(lái)看一下相應(yīng)的程序段：

　　 < script LANGUAGE="VBscript" >
　　 < !--
　　 option explicit
　　 dim MyDate ‘結(jié)果日期
　　 dim datesub ‘時(shí)間差
　　 dim dd ‘相差天數(shù)
　　 dim hh ‘相差小時(shí)數(shù)
　　 dim mm ‘相差分?jǐn)?shù)
　　 dim ss ‘相差秒數(shù)
　　 dim strTip ‘標(biāo)簽提示
　　 mydate=CDate("2000-1-1")
　　 dim mytime
　　 Sub tmraumen_Timer()
　　 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)
　　 strtip="離2000年還有"
　　 strtip=strtip + cstr(dd) + "天"
　　 strtip=strtip + cstr(HH) + "小時(shí)"
　　 strtip=strtip + cstr(MM) + "分鐘"
　　 strtip=strtip + cstr(SS) + "秒"
　　 lblaumen.caption=strtip
　　 end sub
　　 -- >

　　 < /script >

關(guān)于VBScript中怎么實(shí)現(xiàn)倒計(jì)時(shí)功能就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到。