EXCEL VBA DATETIME减法

这个问题之前曾被问及我试图实现该解决scheme，但我不能得到它的工作这基本上是我正在尝试达到减去date时间值来获得总小时数，即使是超过一天然后值我想要显示的是36:03，这是格式[h]：mm，tks，下面是我试图实现的VBA代码

Sub dateissue() Dim startdate As Date, enddate As Date Dim doublevar As Double enddate = "13/2/2014 08:10:00" startdate = "12/2/2014 18:10:00" doublevar = enddate - startdate Range("D3").Value = Format(doublevar, "[h]:mm") End Sub 

我在D3中的结果总是：12任何理由

Answer 1

这为我做了诡计：

 Range("D3").Value = doublevar Range("D3").NumberFormat = "[h]:mm" 

另外，请确保以正确的格式inputdate（即月/日的顺序，系统区域设置可能会影响这在不同的机器上）。

或者，如果你只想要文字：

 Range("D3").Value = "'" & Application.WorksheetFunction.Text(doublevar, "[h]:mm")