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ù)部分。