返回列表 上一主題 發帖

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

t0 = Timer

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

t0 = Timer - t0

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

TOP

回復 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 & " 秒"
*宅女一枚無誤*

TOP

回復 4# Scott090

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

TOP

回復 1# msmplay

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

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

TOP

回復 1# msmplay


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

TOP

回復 1# msmplay

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

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題