如何在VBA中将两个日期的差异格式化为天数、小时数、分钟数？

Sub CalculateDateDifference()
    Dim startDate As Date
    Dim endDate As Date
    Dim diff As Long
    
    startDate = #1/1/2022 9:00:00 AM# ' 设置起始日期和时间
    endDate = Now() ' 设置结束日期和时间为当前日期和时间
    
    ' 计算日期差异
    diff = DateDiff("n", startDate, endDate) ' 计算分钟数
    Dim days As Long
    Dim hours As Long
    Dim minutes As Long
    
    ' 将分钟数转换为天数、小时数和分钟数
    days = diff \ (24 * 60) ' 整除得到天数
    hours = (diff Mod (24 * 60)) \ 60 ' 取余数得到小时数
    minutes = (diff Mod (24 * 60)) Mod 60 ' 取余数得到分钟数
    
    ' 输出结果
    MsgBox "相差 " & days & " 天 " & hours & " 小时 " & minutes & " 分钟"
End Sub