第一:函数可以做到
C1公式
=text(text(B1,"0!:00")-text(A1,"0!:00"),"h:mm")
第二,要用VBA的话,你的代码可以简化如下:
Function timeAdd(a, b)
rig1 = --Right(a, 2)
rig2 = --Right(b, 2)
timeAdd = b - a - 40*(rig1 > rig2)
End Function
不明白为什么 有个-40,如果只是求时间你可以对减,把单元格设置成常规就可以得到这个结果的6分,=a1-b1。数据太少 不太具备分析的可能。因为时间是个60进制 而数制是10进制。这种情况没有说明。需要把可能考虑的情况多考虑。
哪里有这么复杂?按照你的图示,在C1中输入:=b1-a1
回车即可。