通过VBA（访问/ Excel）中获取系统运行时间

Question

反正是有，在访问VBA（或Excel的这种方式），我可以看到当前系统运行时间？

我知道，在任务管理器，我可以看到它，所以我可以通过VBA检索，这方面的信息？

Answer 1

GetTickCount的

GetTickCount函数获取自系统启动之后所经过的毫秒数。它仅限于系统定时器的分辨率。要获得系统计时器分辨率，请使用GetSystemTimeAdjustment函数。

DWORD GetTickCount(VOID); 

参数

此函数没有参数。

备注

所经过的时间被存储为一个DWORD值。因此，如果系统连续运行49.7天，时间将回到零。

库：使用KERNEL32.LIB。

API调用需要声明，请参阅Declare的帮助。从库名称我们知道DLL名称是kernel32.dll。

Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount"() As Long 

要使用

msgbox GetTickCount() 

察觉这是个无符号。 VBA将所有多头的签名，以便更大的数字将打印为负数，只是没有对他们做算术..

另一种方法是使用WMI。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 

Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem") 

For Each objItem in colItems 
    msgbox objItem.lastbootuptime & " " & objItem.caption 
Next