如何 測試 Excel VBA 計算時間間隔的 精確度?
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
回復 2# sjgau
我覺得這樣有問題,Timer傳回的數為Single,
在我的電腦上,Timer傳回的數只會到小數點後第二位,
這個數是已經進位過的,而不該再用 timer1( ) 做四捨五入,
你可能會說,Timer傳回的數如果只到小數點後第二位,timer1( )裡的 a 小數點後就應該都是零,可是不是這樣。
這是因為你的 a 是 Double 資料型態,資料型態之間轉換造成的誤差,可 run 底下程式碼知道有此誤差:- Sub Test()
- Dim t1 As Single
- Dim d1 As Double
-
- t1 = Timer
- Debug.Print "t1=", t1
- Debug.Print "Cdbl(t1)=", CDbl(t1)
- d1 = t1
- Debug.Print "d1=", d1
- End Sub
複製代碼 |
|
|
|
|
|
|
|