第1.40例 Timer 函數
一、題目：
要求編寫一段代碼，運用 Timer 函數來計算本代碼運行所化的時間。
二、代碼：
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。
4、For i = 1 To 1000000 ：從1 到 1000000循環。
5、a = a + i ：把a+i的值賦給變量a，實際上是一個累加的過程。
6、MsgBox Timer - t "秒" ：利用消息框顯示現在的時間減去前面設置的時間，得到運行整個代碼所化的時間。
Timer 函數
返回一個 Single，代表從午夜開始到現在經過的秒數。
Timer
說明
Microsoft Windows中，Timer函數返回一秒的小數部分。
您可能感興趣的文章:- VBA處理數據與Python Pandas處理數據案例比較分析
- 詳解bootstrap導航欄.nav與.navbar區別
- iOS中Navbar設置漸變色效果的方法示例
- iOS實現scrollview上拉顯示Navbar下拉隱藏功能詳解
- 微信小程序 navbar實例詳解
- Bootstrap CSS組件之導航條(navbar)
- Bootstrap Navbar Component實現響應式導航
- VBA數組用法案例詳解
