VBA：需要计算不同日期之间的时差

Question

我需要帮助计算两个不同日期之间的时差。

Cell(1,1) contains: 19/06/2016 01:00:00 
Cell(1,2) contains: 20/06/2016 02:30:00 

答案应该是：25：30：00 以下是我的代码：

Dim a As Date, b As Date    
a = Cells(1, 1).Value
b = Cells(1, 2).Value
Cells(1, 3).Value = TimeValue(b) - TimeValue(a)

但是这段代码给了我1:30:00

Answer 1

只需减去：

Sub luxation()
    Dim a As Date, b As Date
    a = Cells(1, 1).Value
    b = Cells(1, 2).Value
    Cells(1, 3).Value = b - a
    Cells(1, 3).NumberFormat = "[hh]:mm:ss"
End Sub