Настройте кусочную функцию/найдите N-й балл, к нему могут обратиться нуждающиеся друзья. Скопируйте код кода следующим образом:
Функция Splitx (strs1 как строка, strs2 как строка, n как целое число)
'Пользовательская функция сегментации Splitx([строка], разделитель, n-й сегмент)
Dim groupST() как строка
группаST = Разделить(strs1, strs2)
Если UBound(groupST) < n - 1 Тогда
разделениеx=0
Еще
Splitx = группаST (n - 1)
Конец, если
Конечная функция
'/------------------------------------------
Функция minx(KSMC As String, lb As String, kmi As String, n As String)
'N-е место minx([название экзамена],[категория],[предмет],n)
Dim con как объект
Тусклый RS как объект
Dim stsql как строка
Dim kmf как строка
кмф = Середина (км, 1, 1) и группа
Установить con = Application.CurrentProject.Connection
Установите RS = CreateObject(ADODB.Recordset)
STRSQL = ВЫБРАТЬ лучшие 1, км и стандартный результат ИЗ списка результатов
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) And ((category) = ' & lb & ' и имя экзамена =' & KSMC & '))
STRSQL = STRSQL + ORDER BY & kmi
RS.Open STRSQL, con, 3, 3
Если RS.EOF Тогда
минкс = 0
Еще
minx = RS (стандартный балл)
Конец, если
RS.Закрыть
Установить RS = Ничего
Установить con=Ничего
Конечная функция