利用VC的宏实现编译时间统计，做法就是添加两个宏给VC的IDE，
Sub Application_BeforeBuildStart()
dBuildStartTime = NOW
Application.PrintToOutputWindow "---------------------------------------------------TimeCount Win32 Build ----------------------------------------------------------------"
Application.PrintToOutputWindow "Build start: " & dBuildStartTime
End Sub
Sub Application_BuildFinish(nNumErrors, nNumWarnings)
' get build time
dim dNow, hours, sec
dNow = Now
hours = DateDiff("h", dBuildStartTime, dNow, vbSunday, vbFirstJan1)
min = DateDiff("n", dBuildStartTime, dNow, vbSunday, vbFirstJan1)
sec = DateDiff("s", dBuildStartTime, dNow, vbSunday, vbFirstJan1)
'hours = sec / 3600
sec = sec - hours * 3600
min = min - hours * 60
'min = sec / 60
sec = sec - min * 60
' format
Dim strH, strM, strS
If hours > 10 Then
strH = hours
Else
strH = "0" & hours
End If
If min > 10 Then
strM = min
Else
strM = "0" & min
End If
If sec > 10 Then
strS = sec
Else
strS = "0" & sec
End If
' display
Application.PrintToOutputWindow "Build end: " & dNow
Application.PrintToOutputWindow "Build time: " & strH & ":" & strM & ":" & strS
Application.PrintToOutputWindow nNumWarnings & " warning(s), " & nNumErrors & " error(s)."
End Sub
保存之后再编译的时候就会在IDE的OutPut窗口多一个Macro 也签，那里显示的就是编译所耗费的时间。 
|
本类阅读TOP10