Passen Sie die stückweise Funktion an/finden Sie den N-ten Wert, Freunde in Not können sich darauf beziehen. Kopieren Sie den Codecode wie folgt:
Funktion splitx(strs1 als String, strs2 als String, n als Ganzzahl)
'Benutzerdefinierte Segmentierungsfunktion splitx([Zeichenfolge], Trennzeichen, n-tes Segment)
Dimmen Sie groupST() als String
groupST = Split(strs1, strs2)
Wenn UBound(groupST) < n - 1 Dann
splitx=0
Anders
splitx = groupST(n - 1)
Ende wenn
Funktion beenden
'/---------------------------
Funktion minx(KSMC als String, lb als String, kmi als String, n als String)
'N-te Platznote minx([Prüfungsname],[Kategorie],[Thema],n)
Als Objekt dimmen
RS als Objekt dimmen
Dimmen Sie stsql als String
Dim kmf als String
kmf = Mitte(kmi, 1, 1) & Gruppe
Setzen Sie con = Application.CurrentProject.Connection
Setze RS = CreateObject(ADODB.Recordset)
STRSQL = SELECT top 1 & kmi & als Standardpunktzahl AUS der Punkteliste
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) And ((category) = ' & lb & ' and exam name=' & KSMC & '))
STRSQL = STRSQL + ORDER BY & kmi
RS.Open STRSQL, con, 3, 3
Wenn RS.EOF Dann
minx = 0
Anders
minx = RS(Standardpunktzahl)
Ende wenn
RS.Schließen
Setze RS = Nichts
Setze con=Nothing
Funktion beenden