Lập công thức tính bảng lương

[nvm]

Mình đang lập một bảng tính lương cho công nhân của công ty của mình, với cách tính như sau:
Vì làm công nhật nên ngày nghỉ không được tính lương
Một ngày công làm 8 tiếng, làm thêm được nhân 1.5, nếu sau 21h tối được nhân đôi giờ làm
Chủ nhật được nhân 1.5, thêm giờ ngày chủ nhật được nhân đôi, sau 21h được nhân 3.
Vậy anh chị có cách nào hay giúp mình lập một bảng tính lương hợp lý nhất
Mình làm theo cách này (file đính kèm) nhưng thấy rườm rà và phức tạp quá.
Mong các anh chị giúp mình một giải pháp, xin chân thành cảm ơn!

 

[SA_DQ]

Bạn thử với hàm tự tạo 3 trong 1 đây

Option Explicit
Function THCong(LookUpRange As Range, Optional LoaiCong As String = "T") As Double
 LoaiCong = ucase(LoaiCong)
 If InStr("TPC", LoaiCong) < 1 Then Exit Function
 Dim Cls As Range, CongCN As Double
   
 For Each Cls In LookUpRange
   If Weekday(Cells(5, Cls.Column).Value) = 1 And LoaiCong = "C" Then
       CongCN = CongCN + IIf(IsNumeric(Cls.Value), Cls.Value, 0)
   ElseIf Weekday(Cells(5, Cls.Column).Value) > 1 And LoaiCong <> "C" Then
      THCong = THCong + IIf(IsNumeric(Cls.Value), Cls.Value, 0)
   End If
 Next Cls
 If LoaiCong = "P" Then THCong = THCong / 8
 If LoaiCong = "C" Then THCong = CongCN
End Function