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

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 260
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

2^#

發表於 2018-3-10 07:19 | 只看該作者

回復 1# msmplay

試試看
dim cc as date, m%, s%
cc = cdate((timer-t0)/86400)
m = Minute(cc)
s = second(cc)
msgbox "執行時間: " & m & " 分 " & s & " 秒"

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 260
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2018-3-10 08:53 | 只看該作者

回復 1# msmplay

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

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 260
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2018-3-11 06:43 | 只看該作者

回復 1# msmplay

"\" 整數除取整數商
"mod" 除法取整數餘數

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

msmplay

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

5^#

發表於 2018-3-12 10:21 | 只看該作者

回復 4# Scott090

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

*宅女一枚無誤*

msmplay

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

6^#

發表於 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 & " 秒"

*宅女一枚無誤*

jackyq

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

7^#

發表於 2018-3-12 14:00 | 只看該作者

t0 = Timer

'========== your code begin
................
'========== your code end

t0 = Timer - t0

msgbox t0 \ 60 & "分 " & (t0 - t0 \ 60 * 60) & "秒"

msmplay

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

8^#

發表於 2018-3-12 15:29 | 只看該作者

回復 7# jackyq

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

*宅女一枚無誤*

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 260
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

9^#

發表於 2018-3-12 15:42 | 只看該作者

回復 6# msmplay

就像 7樓一樣，把我給的程式碼片段插進要執行的程式碼內試試看
sub test()
dim s%
dim t0
t0=timer

'要執行的程式
' ================
xxxxxxxxxxxxxx
'=================

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

end sub

rouber590324

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

10^#

發表於 2018-3-12 15:53 | 只看該作者

+ Round 試看看

MsgBox t0 \ 60 & "分 " & Round((t0 - t0 \ 60 * 60), 0) & "秒"

羅