Không phải là người trong ngành nên không hiểu lắm về cách tính. Góp ý một chút về thuật toán của UDF XLTD()
Public Function XLTD(HK1, HK2) As Double
Dim maHK1 As Double, maHK2 As Double, lech As Double, maXL As Double
If HK1 = 9 Then '------------------------
maHK1 = 9
ElseIf HK1 = 8 Then
maHK1 = 5
ElseIf HK1 = 6.5 Then
maHK1 = 4
ElseIf HK1 = 5 Then
maHK1 = 3
ElseIf HK1 = 3.5 Then
maHK1 = 2
Else
maHK1 = 1
End If
If HK2 = 9 Then '-----------------------
maHK2 = 9
ElseIf HK2 = 8 Then
maHK2 = 5
ElseIf HK2 = 6.5 Then
maHK2 = 4
ElseIf HK2 = 5 Then
maHK2 = 3
ElseIf HK2 = 3.5 Then
maHK2 = 2
Else
maHK2 = 1
End If
lech = maHK1 - maHK2
If maHK1 = 9 And maHK2 < 9 Then '------------------------------------
maXL = maHK2
ElseIf maHK1 < 9 And maHK2 = 9 Then
maXL = maHK1
ElseIf lech = 3 Then
maXL = Int((maHK1 + maHK2) / 2)
Else
maXL = Round((maHK1 + maHK2) / 2 + 0.1, 0)
End If
If maXL = 9 Then '---------------------------------
XLTD = 9
ElseIf maXL = 5 Then
XLTD = 8
ElseIf maXL = 4 Then
XLTD = 6.5
ElseIf maXL = 3 Then
XLTD = 5
ElseIf maXL = 2 Then
XLTD = 3.5
Else
XLTD = 2
End If
End FunctionPublic Function XLTD1(HK1, HK2) As Double
Dim maHK1 As Double, maHK2 As Double, maXL As Double
maHK1 = IIf(HK1 = 9, 9, (HK1 - 0.5) / 1.5)
maHK2 = IIf(HK2 = 9, 9, (HK2 - 0.5) / 1.5)
If maHK1 = 9 Or maHK2 = 9 Then
maXL = maHK1 + maHK2 - 9
Else
maXL = Round((maHK1 + maHK2) / 2 + 0.1, 0) + ((maHK1 - maHK2) = 3)
End If
XLTD1 = IIf(maXL = 9, 9, maXL * 1.5 + 0.5)
End Function-----
----------
