给vc添加编译时间计时

利用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 也签，那里显示的就是编译所耗费的时间。