Excel VBA获取系统运行时长的问题及格式兼容疑惑求助

一、GetTickCount的核心问题 #

• 你之前的错误在于：GetTickCount()返回的是系统启动后的毫秒数，不是秒数。直接除以8400（错误数值）或取前6位都是错误逻辑。
• 32位GetTickCount()存在溢出限制：系统运行超过49.7天后，数值会归零重新计算，这也是你得到错误结果的原因之一。
• 正确方案是使用GetTickCount64()（支持64位，无溢出问题），返回值为LongLong类型的毫秒数。

二、32/64位系统兼容的声明方式 #

通过VBA条件编译实现跨版本兼容：

#If VBA7 Then
    Public Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As LongLong
#Else
    Public Declare Function GetTickCount Lib "kernel32" () As Long
#End If

三、正确计算并格式化运行时长 #

方法1：手动计算天/时/分/秒（推荐，避免日期逻辑干扰） #

这种方式不受日期格式限制，无论运行时长多久都能准确显示：

Sub GetSystemUptime()
    Dim totalMilliseconds As Variant
    Dim totalSeconds As LongLong
    Dim days As Long, hours As Long, minutes As Long, seconds As Long
    
    #If VBA7 Then
        totalMilliseconds = GetTickCount64()
    #Else
        totalMilliseconds = GetTickCount()
    #End If
    
    totalSeconds = CLngLng(totalMilliseconds) \ 1000 ' 毫秒转总秒数
    days = totalSeconds \ 86400
    totalSeconds = totalSeconds Mod 86400
    hours = totalSeconds \ 3600
    totalSeconds = totalSeconds Mod 3600
    minutes = totalSeconds \ 60
    seconds = totalSeconds Mod 60
    
    Debug.Print "系统运行时长：" & days & "天" & hours & "小时" & minutes & "分钟" & seconds & "秒"
    Debug.Print Format(days, "00") & ":" & Format(hours, "00") & ":" & Format(minutes, "00") & ":" & Format(seconds, "00")
End Sub

方法2：修正Format函数格式字符串（仅适用于时长≤31天） #

你之前的格式字符串错误：MM代表月份，分钟需用小写mm。但要注意，Excel的Format基于日期逻辑，天数超过31时会循环显示（比如32天显示01），仅适合短时长场景：

Sub FormatUptime()
    Dim totalMilliseconds As Variant
    Dim uptimeDays As Double
    
    #If VBA7 Then
        totalMilliseconds = GetTickCount64()
    #Else
        totalMilliseconds = GetTickCount()
    #End If
    
    uptimeDays = totalMilliseconds / 86400000 ' 毫秒转天数
    Debug.Print Format(uptimeDays, "dd:hh:mm:ss")
End Sub

四、之前错误操作的原因说明 #

• 取GetTickCount()前6位是偶然巧合：当时的毫秒数前6位刚好等于总秒数，但该逻辑完全不可靠，一旦系统运行超过115天，毫秒数变为10位，此方法彻底失效。
• Debug.Print显示异常：误用大写MM（月份）代替小写mm（分钟），系统将数值当作日期处理，导致输出错误的月份值。

内容的提问来源于stack exchange，提问作者ajr45