[發問] VBA計算執行時間顯示為x分x秒

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

2^#

發表於 2018-3-12 10:21 | 顯示全部帖子

回復 4# Scott090

S大~~~非常感謝幫忙，不過以上3種方式我今天之下都是顯示為0分0秒
我是win7 office2007版本，可以再請教一下是哪裡的問題ㄇ

*宅女一枚無誤*

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

3^#

發表於 2018-3-12 10:53 | 顯示全部帖子

回復 4# Scott090

S大~補充一下，我是用以下3段程式碼測試的dim cc as date, m%, s%
dim t0
t0=timer
cc = cdate((timer-t0)/86400)
m = Minute(cc)
s = second(cc)
msgbox "執行時間: " & m & " 分 " &  s & " 秒"

dim t0
dim m%,s%
t0=timer
s=int(timer-t0)
m=s\60
s=s-m*60
xxxxxxxxxxxxx(程式碼)
msgbox "執行時間: " & m & " 分 " &  s & " 秒"

dim s%
dim t0
t0=timer
s=int(timer-t0)
msgbox "執行時間: " & s\60 & " 分 " &  s mod 60 & " 秒"

*宅女一枚無誤*

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

4^#

發表於 2018-3-12 15:29 | 顯示全部帖子

回復 7# jackyq

j大~~~~感謝，但測試ㄧ程式跑完結果為：0分4.1953125秒。秒數似乎還是沒辦法不要有小數點

*宅女一枚無誤*

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

5^#

發表於 2018-3-12 18:56 | 顯示全部帖子

回復 10# rouber590324
回復 7# jackyq
回復 4# Scott090

r大~~j大~~S大~~~抱歉抱歉，是我的錯，是我誤把程式碼放錯地方了，難怪執行起來都沒成功

目前使用三位大師的代碼測試都正常可以跑出 x 分 x秒了!!!真的非常感謝你們熱心又無私的幫忙喔~~~~~~~~再次感謝

*宅女一枚無誤*

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

6^#

發表於 2018-3-12 18:58 | 顯示全部帖子

回復 12# jackyq

結果你突破盲腸了..............我真的那麼烏龍............

*宅女一枚無誤*