Copy Code code as follows:
Function Splitx (strs1 As String, strs2 as String, n as Integer)
' Custom segment function Splitx ([string], ' delimiter ', nth paragraph)
Dim groupst () as String
Groupst = Split (strs1, Strs2)
If UBound (Groupst) < n-1 Then
SPLITX = 0
Else
SPLITX = Groupst (n-1)
End If
End Function
'/-------------------------------------
Function Minx (KSMC As String, lb as String, kmi as String, n as String)
' N ' score minx ([Test name],[category],[subject],n)
Dim con as Object
Dim RS as Object
Dim Stsql as String
Dim KMF as String
KMF = Mid (KMI, 1, 1) & "group"
Set con = Application.CurrentProject.Connection
Set RS = CreateObject ("ADODB.") Recordset ")
strSQL = "SELECT top 1" & KMI & "As compliance with the From score summary"
strSQL = strSQL + "WHERE ((" & KMF & ") <=" & N & ") and ((category) = '" & lb & "' and test name = '" & KSMC & "')"
strSQL = strSQL + "ORDER BY" & KMI
Rs. Open strSQL, Con, 3, 3
If RS. EOF Then
Minx = 0
Else
Minx = RS ("Compliance points")
End If
Rs. Close
Set RS = Nothing
Set con = Nothing
End Function
