【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“统计VB程序的运行时间 - 技术总结“提供大家参考，希望对大家有所帮助!

统计VB程序的运行时间 作者：土人 用户退出程序时若能告诉用户程序当次用了多长时间、时间过长的话则提醒用户注意休息，我想这样的创意应是对用户的一种体贴，会使我们的软件更具亲和性，也给我们的软件添色不少。

    VB中可利用Now函数或者Timer控件完成此设想。

     用Now函数能保证时间统计的准确性。

    思路是这样：用CStrSecondNow、CStrMinuteNow、CstrHourNow及CStrDayNow记取程序启动和关闭时系统时钟的秒、分、时、日，然后作些计算即可得出运行时间总和。

    因其计算在跨月份的情况下相当复杂，本文不打算对这个思路作讨论。

     用Timer控件不失为一种很好的解决方法，它能较为方便地帮助我们统计程序运行的时间。

    具体思路是：设置几个变量分别记录秒、分、时、日让Timer控件控制秒、分、时、日的变化。

    当秒数等于60时则分钟加1，当分钟等于60时则小时加1，当小时等于24时则日加1。

    这里，秒最为关键，它的精确性决定了时间的统计是否准确。

    Timer控件的Interval属性的设置因而变得很重要：我们的秒变量将由它来主宰。

    将其Interval属性设为1000的话一个小时可能会误差6秒钟，这应该是无关紧要了吧。

     以下是完整的程序代码清单。

    作为试验，本程序仅需要一个窗体、一个按钮和一个Timer控件。

    程序在PWin98、VB6.0下调试通过。

     Private s As Integer 声明秒 Private m As Integer 声明分 Private h As Integer 声明小时 Private d As Integer 声明日 启动程序时设置Timer控件属性并给秒、分、时、日变量赋值 Private Sub Form_Load Timer1.Enabled True Timer1.Interval 1000 s 0 m 0 h 0 d 0 End Sub Private Sub Timer1_Timer s s 1 每秒钟给s变量加1 If s 60 Then s 0 重新计算秒 m m 1 逢秒为60则分钟加1 If m 60 Then m 0 重新计算分 h h 1 逢分钟为60则小时加1 If h 24 Then h 0 重新计算小时 d d 1 逢24小时则天数加1 End If End If End If End Sub 退出时 Private Sub cmdExit_Click If d24 h 1 Then 使用时间若超过一小时 MsgBox 本次使用的时间为： amp d24 h amp 小时 amp m amp 分钟 _ amp s amp 秒 amp vbCrLf amp 谢谢使用 amp vbCrLf amp _ 但请您注意休息，不要太劳累哦 vbOKOnly 再见 Else 若不超过一小时 MsgBox 本次使用的时间为： amp h amp 小时 amp m amp 分钟 _ amp s amp 秒 amp vbCrLf amp 谢谢使用 amp vbCrLf vbOKOnly 再见 End If End End Sub 若用户点击窗体右上角的关闭按钮 Private Sub Form_queryunloadCancel As Integer Unloadmode As Integer cmdExit_Click End Sub 来源:programfan.com编程爱好者选取:kjkimberly