excel - Excel VBA datediff一起计算月，日和月？

我正在尝试使用Datediff函数计算经过的时间与月份，天数和小时数的总和。不可能吗

DateDiff("d hh", datein, Now)

我能做什么？

最佳答案

这是不可能的，因为interval parameter只能是单个字符串。

您将需要做更多的工作，例如获取hours中的差值，如果大于24，则将小数点分隔符之前的部分转换为天

Sub Main()

    Dim d1 As Date
    d1 = "15/10/2014 08:00:03"

    Dim d2 As Date
    d2 = Now

    Dim hrsDiff As Long
    hrsDiff = DateDiff("h", d1, d2)

    MsgBox IIf(hrsDiff >= 24, _
               hrsDiff \ 24 & " days " & hrsDiff Mod 24 & " hours", _
               hrsDiff & " hours")

End Sub