如何在vba中用GetTickCount获取计算机的已开机时间？

api函数GetTickCount可以获取距离计算机系统开机到现在已经过去的毫秒数。

api函数GetTickCount的C++语法如下：

DWORD WINAPI GetTickCount(void);

api函数GetTickCount的VB声明如下：

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

以下代码是在vba中用api函数GetTickCount 获取系统的已开机时间，用”hh:mm:ss”的形式表示。

Public Declare Function GetTickCount Lib "kernel32" () As Long
Sub QQ1722187970()
    '获取系统已经开机的毫秒数
    lMS = GetTickCount
    '转换为天数
    lDay = lMS * 1 / 24 * 1 / 60 * 1 / 60 * 1 / 1000
    '以hh:mm:ss的格式显示
    MsgBox VBA.Format(lDay, "hh:mm:ss")
End Sub