Personalize a função por partes/encontre a enésima pontuação, amigos necessitados podem consultá-la. Copie o código do código da seguinte forma:
Função splitx (strs1 como string, strs2 como string, n como inteiro)
'Função de segmentação personalizada splitx([string], separador, enésimo segmento)
Dim groupST() como string
grupoST = Divisão(strs1, strs2)
Se UBound(grupoST) <n - 1 Então
divisãox = 0
Outro
divisãox = grupoST(n - 1)
Terminar se
Função final
'/------------------------------------------
Função minx (KSMC como string, lb como string, kmi como string, n como string)
'Pontuação do enésimo lugar atrevida([nome do exame],[categoria],[assunto],n)
Dim con As Object
Dim RS como objeto
Dim stsql como string
Dim kmf como string
kmf = Médio (kmi, 1, 1) e grupo
Definir con = Application.CurrentProject.Connection
Definir RS = CreateObject(ADODB.Recordset)
STRSQL = SELECIONE os 1 primeiros e kmi e como pontuação padrão DA lista de pontuação
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) E ((categoria) = ' & lb & ' e nome do exame =' & KSMC & '))
STRSQL = STRSQL + ORDER BY & kmi
RS.Open STRSQL, con, 3, 3
Se RS.EOF então
atrevida = 0
Outro
atrevida = RS (pontuação padrão)
Terminar se
RS.Fechar
Definir RS = Nada
Definir con=Nada
Função final