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

Question

我正在尝试使用Datediff函数计算总月数,天数和小时数所用的时间.这不可能吗？

DateDiff("d hh", datein, Now)

我能做什么？

Answer 1

这是不可能的,因为interval参数只能是一个字符串.

你将不得不做更多的工作,如获得差异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