Function TLDuocDuyet(ByVal sg_NgayCong As Single, ByVal i_MucXet As String, ByVal r_LuongCD As Range) As Double
'Gan luong chuc danh cho bien kieu mang ======
Dim a_LuongCD(7) As Double
Dim i As Integer
For i = 1 To 7 'Step 1
a_LuongCD(i) = r_LuongCD(i + 1)
Next
If (sg_NgayCong > 0) Then
'=============================================
Select Case Trim(i_MucXet)
Case "1"
TLDuocDuyet = a_LuongCD(1)
Case "2"
TLDuocDuyet = a_LuongCD(2)
Case "3"
TLDuocDuyet = a_LuongCD(3)
Case "4"
TLDuocDuyet = a_LuongCD(4)
Case "5"
TLDuocDuyet = a_LuongCD(5)
Case "6"
TLDuocDuyet = a_LuongCD(6)
Case "ĐB"
TLDuocDuyet = a_LuongCD(7)
Case Else
TLDuocDuyet = 0
End Select
'=============================================
Else
TLDuocDuyet = 0
End If
End Function
