VBA中的Timer函數(shù)用法
更新時(shí)間：2016年12月01日 17:01:29 投稿：mdxy-dxy
這篇文章主要介紹了VBA中的Timer函數(shù)用法,需要的朋友可以參考下
第1.40例 Timer 函數(shù)
一、題目：
要求編寫一段代碼，運(yùn)用 Timer 函數(shù)來計(jì)算本代碼運(yùn)行所化的時(shí)間。
二、代碼：
Sub 示例_1_040()
Dim t, i&, a
t = Timer
For i = 1 To 1000000
a = a + i
Next i
MsgBox Timer - t & "秒" ‘返回0.046875秒
End Sub
三、代碼詳解
1、Sub 示例_1_040()：宏程序的開始語句。宏名為示例_1_040。
2、Dim t, i&, a ：聲明變量t,a 均為可變型變量，i為長整型變量。
3、t = Timer ：把系統(tǒng)的時(shí)間賦給變量t。
4、For i = 1 To 1000000 ：從1 到 1000000循環(huán)。
5、a = a + i ：把a(bǔ)+i的值賦給變量a，實(shí)際上是一個(gè)累加的過程。
6、MsgBox Timer - t & "秒" ：利用消息框顯示現(xiàn)在的時(shí)間減去前面設(shè)置的時(shí)間，得到運(yùn)行整個(gè)代碼所化的時(shí)間。
Timer 函數(shù)
返回一個(gè) Single，代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。
Timer
說明
Microsoft Windows中，Timer函數(shù)返回一秒的小數(shù)部分。
相關(guān)文章
VBS教程：方法-GetDriveName 方法...2006-11-11
WMI中的Win32_PingStatus類(ping命令實(shí)現(xiàn))
平時(shí)很少用到ping命令，所以這個(gè)類也沒怎么用過，測試了一下，好像效率比ping要高。計(jì)算ping 100次jb51.net延遲的平均值。2011-01-01
在《VBS For Next循環(huán)的一些細(xì)節(jié)》中說到了 For Next 循環(huán)的控制變量僅僅在循環(huán)開始前求值一次，但是其中存在一處陷阱2013-01-01
用vbscript實(shí)現(xiàn)的修改注冊表的腳本，建議大家看看2008-06-06
vbs實(shí)現(xiàn)壓縮功能的代碼2008-02-02
雷客圖ASP站長安全助手vbs版 使用說明2009-07-07
VBS教程：VBscript語句-Execute 語句...2006-11-11
VBS教程：函數(shù)-VarType 函數(shù)...2006-11-11
用vbs實(shí)現(xiàn)的exe2swf工具腳本代碼
幾個(gè)超據(jù)學(xué)習(xí)價(jià)值的VBS腳本用法：將exe格式的flash拖放在此vbs文件上，即可生成swf文件2008-05-05
昨天說了下用 htmlfile 來解析 html，今天依然用他來解析，htmlfile 是一個(gè) COM 版的 BOM 和 DOM，所以解析 html, 執(zhí)行 js 完全不在話下，今天就繼續(xù)解析 json 和 jsonp 吧2014-06-06