VBA 计算两个时间相差多少分钟

VBA中两个时间差值计算：

（1）时间采用文本格式（注：单元格里的时间一般按文本处理）

时间a = TimeValue("11:00:00")
时间b = TimeValue("13:40:00")
时间差 = Abs(DateDiff("n", 时间a, 时间b))

Sub test()
时间a = TimeValue("11:00:00")
时间b = TimeValue("13:40:00")
时间差 = Abs(DateDiff("n", 时间a, 时间b))

Debug.Print 时间差
End Sub

(2)时间采用VBA时间格式

时间a = #11:00:00 AM#
时间b = #1:40:00 PM#
时间差 = Abs(DateDiff("n", 时间a, 时间b))

Sub test2()
时间a = #11:00:00 AM#
时间b = #1:40:00 PM#
时间差 = Abs(DateDiff("n", 时间a, 时间b))

Debug.Print 时间差
End Sub

（3）时间文本数字

文本转时间：

 TimeValue("11:00:00")

时间转文本：

Format(#1:40:00 PM#, "hh:mm:ss")

用数字指定时间：

TimeSerial(11, 0, 0)