第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中dir用法 vba中dir函式使用心得
dir pathname attributes 構建測試環境如下 一 測試在dir函式中使用萬用字元來查詢多個檔案，在vbe中輸入 如下 sub listfiles dim strpath as string,strtmp as string strpath c test strtmp dir st...
Timer中schedule 的用法
finalintent intent newintent this,welactivity.class timer timer newtimer timertask task newtimertask timer.schedule 1 timer.schedule timertask task,da...
vba 自動換行 VBA中msgbox的用法小結
在訊息框中顯示資訊，並等待使用者單擊按鈕，可返回單擊的按鈕值 比如 確定 或者 取消 通常用作顯示變數值的一種方式。msgbox prompt buttons title helpfile,context 引數說明 1 prompt，必需的引數，為字串，作為顯示在訊息框中的訊息文字。其最大長度約為1...