狠狠网/色综合久久久久综合体桃花网/日本护士三aaaaaa/久久久久久综合一区中文字幕

或者

昵稱：徐小樣

接單：1188   關注TA

達標率 0%

VBA中的Timer函數用法

作者：徐小樣 瀏覽：153次 發布時間：2018-03-22
分享 評論 贊0

一、題目：

　　要求編寫一段代碼，運用 Timer 函數來計算本代碼運行所化的時間。

二、代碼：

?

1

2

3

4

5

6

7

8

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函數返回一秒的小數部分。