Excel VBA datediff 一起计算月、日和月？

Question

我正在尝试使用 Datediff 函数计算耗时以及总月数、天数和小时数。难道不可能吗？

DateDiff("d hh", datein, Now)

我能做什么？

Answer 1

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

您将需要做更多的工作，例如获取小时的差异，如果它高于 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