CSDN博客

img 40Star

如何得到应用程序的运行时间

发表于2002/9/24 9:34:00  1091人阅读

 

利用函数GetTickCount就可以搞定,不过他是个API,需要声明一下下。
还有需要注意的是,这个函数返回的是毫秒,所以需要自己再转换单位的!
GetTickCount得到的是操作系统到现在为止的运行时间,那么用两次的返回值相减就可以了。

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim a As Long

Private Sub Command1_Click()
MsgBox (GetTickCount - a) '应用程序的运行时间
End Sub

Private Sub Form_Load()
a = GetTickCount
End Sub

由于GetTickCount返回的值是DWORD类型。因此,操作系统再运行了49.7天后,这个值就会归0。

0 0

相关博文

我的热门文章

img
取 消
img