VBA中的Timer函數(shù)用法
更新時(shí)間：2016年12月01日 17:01:29 投稿：mdxy-dxy
這篇文章主要介紹了VBA中的Timer函數(shù)用法,需要的朋友可以參考下
第1.40例 Timer 函數(shù)
一、題目：
要求編寫(xiě)一段代碼，運(yùn)用 Timer 函數(shù)來(lái)計(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()：宏程序的開(kāi)始語(yǔ)句。宏名為示例_1_040。
2、Dim t, i&, a ：聲明變量t,a 均為可變型變量，i為長(zhǎng)整型變量。
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è)累加的過(guò)程。
6、MsgBox Timer - t & "秒" ：利用消息框顯示現(xiàn)在的時(shí)間減去前面設(shè)置的時(shí)間，得到運(yùn)行整個(gè)代碼所化的時(shí)間。
Timer 函數(shù)
返回一個(gè) Single，代表從午夜開(kāi)始到現(xiàn)在經(jīng)過(guò)的秒數(shù)。
Timer
說(shuō)明
Microsoft Windows中，Timer函數(shù)返回一秒的小數(shù)部分。
相關(guān)文章
dim函數(shù)第三個(gè)參數(shù)設(shè)置截取字符的長(zhǎng)度問(wèn)題
dim函數(shù)的第三個(gè)參數(shù)，也就是截取字符的長(zhǎng)度，我在設(shè)置這個(gè)的時(shí)候，出了些問(wèn)題,提示無(wú)效的過(guò)程調(diào)用或參數(shù),本文詳細(xì)介紹如何解決2012-12-12
VBScript教程 第十課 VBScript編碼約定...2006-11-11
VBS基礎(chǔ)篇 - FileSystemObject對(duì)象詳解
文件系統(tǒng)是所有操作系統(tǒng)最重要的部分之一，腳本經(jīng)常會(huì)需要對(duì)文件及文件夾進(jìn)行訪(fǎng)問(wèn)和管理，在Vbs中對(duì)桌面和文件系統(tǒng)進(jìn)行訪(fǎng)問(wèn)的頂級(jí)對(duì)象是FileSystemObject,需要的朋友可以參考下2018-05-05
VBS教程：函數(shù)-Log 函數(shù)...2006-11-11
非常具有破壞性，所以如果自己有服務(wù)器的，一定要把shell.application組件禁掉2008-06-06
有時(shí)候由于網(wǎng)站過(guò)多想知道有哪些網(wǎng)站，一個(gè)一個(gè)看也挺累的，那么就可以通過(guò)iisweb.vbs 列出網(wǎng)站，而且還能看到每個(gè)網(wǎng)站的狀態(tài)，是停止還是開(kāi)啟的2014-07-07
vbs 獲取當(dāng)前目錄文件數(shù)量的代碼(不包括子文件夾中的)
有時(shí)候我們需要獲取當(dāng)前目錄下有多少個(gè)文件，那么就可以參考下面的代碼2013-09-09
VBS教程：正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式
VBS教程：正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式...2006-11-11
這篇文章主要介紹了vbs中獲取當(dāng)前腳本所在路徑的2個(gè)方法,本文中的方法都是通過(guò)FileSystemObject來(lái)實(shí)現(xiàn),需要的朋友可以參考下2014-08-08
寫(xiě)了這么多VBS，從來(lái)都沒(méi)有使用過(guò)SetLocale函數(shù)，似乎也沒(méi)有見(jiàn)過(guò)誰(shuí)的代碼使用過(guò)，這個(gè)SetLocale函數(shù)到底有什么用呢2013-05-05