在excel vba中添加分钟（hh：mm）

我正在制作一个制作时间表，并且想补充一下。 78分钟到一个时间前。 7：05（上午）在VBA。 我怎么去做这个？ 这是我到目前为止所尝试的，但我得到一个错误13types：不匹配

Dim TUntilPump As Integer Dim TFPump As Long, TStartPump As Long TUP = 78 TFP = Time(0, TUP, 0) TSP = Time(7,05,0) + TFP 

我认为这与我的variables维度或我的时代的格式有关，但我不知道我做错了什么。 任何帮助表示赞赏，并提前感谢！

Answer 1

使用DATEADD函数：

 TRP = dateadd("n",78,"7:05:00") 

“n”表示分钟。

Answer 2

时代应该被认为是双重types的变数。 时间是一天中的小数部分（1）。 中午0.5点，下午04点0.666666。 我发现TimeSerial函数对于构造date是很好的。

 dim TFP as double, TSP as double, TUP as integer TUP = 78 TFP = TimeSerial(0, TUP, 0) TSP = TimeSerial(7, 5, 0) + TFP 'alternate TSP = TimeSerial(7, 5 + TUP, 0)