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