作者paul60209 (我是保罗小小)
标题Re: [ASP ] 计算程式执行时间至毫秒
时间Tue Sep 25 13:46:30 2018
※ 引述《marcopolo1 (TSRDJ)》之铭言：
: 各位大大好
: 小弟刚踏入vb的世界，目前想知道程式中某一个段落的执行时间，做法如下
: dtstartime = Now() '将目前时间以dastartime储存
: 'do test 想量测时间的主要程式
: FormatDataTime(Now()-dtstartime,3) '利用目前的时间减去dtstartime得到时间差
: 但是我目前的作法只能取时间到秒的单位，请问各位大大什麽方法可以设定时间的格式吗?
如果要到毫秒(Milliseconds)你用VBA里面的Now是做不到的，
比较复杂的方式只能透过window的GetSystemTime来做了，
方法如下，总共包含7段程式，请全部复制进去你的编译器里面，
Option Explicit
Private Declare PtrSafe Sub GetSystemTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
Private Type SYSTEMTIME
myYear As Integer
myMonth As Integer
myDayOfWeek As Integer
myDay As Integer
myHour As Integer
myMinute As Integer
mySecond As Integer
myMilliseconds As Integer
End Type
Public ST As SYSTEMTIME
Public ET As SYSTEMTIME
'''''''''''''''''''''''''''''''''''''
Sub GetStartTime()
GetSystemTime ST
End Sub
'''''''''''''''''''''''''''''''''''''
Sub GetEndTime()
GetSystemTime ET
End Sub
'''''''''''''''''''''''''''''''''''''
Function SystemTimeDiff(ST As SYSTEMTIME, ET As SYSTEMTIME)
Dim msec1 As Integer: Dim msec2 As Integer
Dim timetaken As Date
msec1 = Val(Left(Split(FormatSystemTime(ST) & ".", ".")(1) & "000", 3))
msec2 = Val(Left(Split(FormatSystemTime(ET) & ".", ".")(1) & "000", 3))
If msec2 < msec1 Then msec2 = msec2 + 1000
timetaken = CDate(Split(FormatSystemTime(ET) & ".", ".")(0)) -
CDate(Split(FormatSystemTime(ST), ".")(0))
SystemTimeDiff = (Format(Hour(timetaken), "00") & ":" &
Format(Minute(timetaken), "00") & ":" & Format(Second(timetaken), "00")) & _
"." & Format(msec2 - msec1, "000")
End Function
''''''''''''''''''''''''''''''''''''''''''
Function FormatSystemTime(ST As SYSTEMTIME) As String
With ST
FormatSystemTime = Format(.myHour, "00") & ":" & Format(.myMinute, "00")
& ":" & _
Format(.mySecond, "00") & "." & Format(.myMilliseconds, "000")
End With
End Function
'''''''''''''''''''''''''''''''''''''''''
Sub MyTimeDiff()
MsgBox SystemTimeDiff(ST, ET), vbInformation, "巨集进行时间"
End Sub
''''''''''''''''''''''''''''''''''''''''
Sub MySub()
Dim i As Integer
Call GetStartTime
'此处更改为你原本的程式
For i = 1 To 1000
Cells(i, "A") = i
Next
'
Call GetEndTime
Call MyTimeDiff
End Sub
最後MySub的部分就是你自己原本写的程式码
在你开始计时的地方加入Call GetStartTime，
然後结束的地方加入Call GetEndTime，
最後再加上Call MyTimeDiff去计算两个时间的差异
他就会自动帮你算出来了，
要注意的是里面抓到的系统时间是抓标准时间，
而非台湾时间，所以你如果要看开始与结束时间，
要自己加上8小时，也可於程式码里面调整
至於7个程式内容是什麽，有点复杂就不多做解释了，
如果真的有兴趣，可以在站内信我讨论~
希望这样有帮助到你~~~
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 118.169.229.10
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1537854392.A.0F7.html
1F：推 marcopolo1: 问题解决了感谢大大的帮助 09/29 19:42