欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

VBA中的Timer函數(shù)用法

 更新時(shí)間:2016年12月01日 17:01:29   投稿:mdxy-dxy  
這篇文章主要介紹了VBA中的Timer函數(shù)用法,需要的朋友可以參考下

第1.40例 Timer 函數(shù)

一、題目:

  要求編寫一段代碼,運(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():宏程序的開始語(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,代表從午夜開始到現(xiàn)在經(jīng)過(guò)的秒數(shù)。

Timer
說(shuō)明
Microsoft Windows中,Timer函數(shù)返回一秒的小數(shù)部分。

相關(guān)文章

最新評(píng)論