在Excel中设置迟到扣工资函数，求高手指教。

在Excel中设置迟到扣工资函数，求高手指教。

很有趣的公式；
共同关注~~支持一下，求高手。追问=ROUND(B2-B2/22*IF(C2>=4,1,IF(C2>0.5,0.5)),2)
解决了追答试了一下，似乎楼主的公式不能解决大于30分钟情况。。。
另外一个朋友的公式，如果是4小时的话，还是扣1天工资了。。呵呵

应该怎么解决？

A列为“当月应发工资”，B列为“迟到时间”，C列为“扣款金额”。
Sub 扣款()
i = Cells(Rows.Count, 2).End(xlUp).Row
For j = 2 To i
If Cells(j, "b") >= 240 Then
Cells(j, "b").Offset(, 1) = Cells(j, "a") / 22 * 0.5
ElseIf Cells(j, "b") > 30 Then
Cells(j, "b").Offset(, 1) = Cells(j, "a") / 22 * 1
Else
Cells(j, "b").Offset(, 1) = ""
End If
Next
End Sub

不知道迟到时间是用什么单位计的，假定计时单位为小时并在A1单元格中，B1中为当月应发工资，那么应扣工资可以参考公式：
=B1*LOOKUP(A1,{0,0;0.5,0.5;4,1})/22
实发工资用公式：
=B1-B1*LOOKUP(A1,{0,0;0.5,0.5;4,1})/22