要保证你的时间是时间格式而不是文本:yy-mm-dd h:mm:ss
上午8:30到12:00,下午2:30到5:30,每天工作时间390分钟。
C2输入
=TEXT((B2-A2-INT(B2-A2)*35/48-IF(MOD(B2,1)
回车并向下填充。
把代码窗口输入(粘贴)下列代码
Function m(dt1, dt2)
'dt1 = Cells(2, 1)
'dt2 = Cells(2, 2)
d1 = DateValue(dt1)
t1 = TimeValue(dt1)
d2 = DateValue(dt2)
t2 = TimeValue(dt2)
If t1 > "8:30" And t1 < "12:00" Then
t1_1 = DateDiff("n", t1, "12:00:00") + 180
ElseIf t1 > "14:30:00" And t1 < "17:30:00" Then
t1_1 = DateDiff("n", t1, "17:30:00")
End If
If t2 > "8:30" And t2 < "12:00" Then
t2_1 = DateDiff("n", "8:00:00", t2)
Else
If t2 < "14:30:00" Then
t2 = "14:30:00"
End If
If t2 < "17:30:00" Then
t2_1 = DateDiff("n", "14:30:00", t2) + 210
End If
End If
m = (DateDiff("d", d1, d2) - 1) * 390 + t1_1 + t2_1
End Function
在C1 输入 =m(A2,B2)
没有进行数据验证,请确保数据格式正确。
好明白,但公式.......