Sesuaikan fungsi sepotong-sepotong/temukan skor ke-N, teman yang membutuhkan dapat merujuknya. Copy kode kodenya sebagai berikut:
Fungsi splitx(strs1 Sebagai String, strs2 Sebagai String, n Sebagai Integer)
'Fungsi segmentasi khusus splitx([string], pemisah, segmen ke-n)
Redupkan groupST() Sebagai String
grupST = Pisahkan(strs1, strs2)
Jika UBound(groupST) < n - 1 Maka
belahx=0
Kalau tidak
splitx = grupST(n - 1)
Akhiri Jika
Fungsi Akhir
'/----------------------------
Fungsi minx(KSMC Sebagai String, lb Sebagai String, kmi Sebagai String, n Sebagai String)
'Nilai peringkat ke-9([nama ujian],[kategori],[mata pelajaran],n)
Redupkan con Sebagai Objek
Redupkan RS Sebagai Objek
Redupkan stsql Sebagai String
Redupkan kmf Sebagai String
kmf = Pertengahan(kmi, 1, 1) & grup
Setel con = Aplikasi.Proyek Saat Ini.Koneksi
Setel RS = CreateObject(ADODB.Recordset)
STRSQL = PILIH 1 & kmi & sebagai skor standar DARI daftar skor
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) Dan ((kategori) = ' & lb & ' dan nama ujian=' & KSMC & '))
STRSQL = STRSQL + DIPESAN OLEH & kmi
RS.Buka STRSQL, con, 3, 3
Jika RS.EOF Lalu
minx = 0
Kalau tidak
minx = RS(skor standar)
Akhiri Jika
RS.Tutup
Tetapkan RS = Tidak Ada
Setel con=Tidak ada
Fungsi Akhir