请教大家一个问题！

[maozijun]

我想在软件被关闭的时候显示这个软件已经被用了多少时间？
应该怎么办？
我试了很多办法但都不能达到效果

请各位高手 能告诉我今天的办法 谢谢！

[heruzhi]

好象算时间差有一个缺陷，假如程序运行期间系统时间被改了呢？

[heruzhi]

用TIMER不行吗？每秒记数一次。还有DOEVENTS

[Montaque]

开始的时候，取一下系统时间
结束的时候，再记录一下，然后。。。

[griefforyou]

Dim StartTime As Variant

Private Sub Form_Load()
StartTime = Now
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "您已使用本软件:" & DateDiff("s", StartTime, Now) & "秒"
End Sub

[redsoft]

Option Explicit

Dim lngStayTime As Long, dteStart As Date, dteEnd As Date

Private Sub Form_Load()
dteStart = Now
End Sub

Private Sub Form_Unload(Cancel As Integer)
dteEnd = Now
lngStayTime = DateDiff("s", dteStart, dteEnd)
MsgBox "你的程序已经运行了" & lngStayTime & "秒!"
End Sub

[redsoft]

好象迟了点，楼上的哥们，我可没剽窃你啊，写代码的时候我没去刷新。

[matboy]

我估计你说的是从安装开始的时间吧，如果是这样的话，读写注册表就行，写配置文件也可以，保存在数据库中也没问题，总之程序开始运行时，判断是否已经有过使用记录，如果没有，就写系统时间，如果有，就读使用记录中的系统时间（第一次时间），跟当前系统时间比较就可以了。