主頁(yè) > 知識(shí)庫(kù) > asp 自定義分段函數(shù)/求第N名成績(jī)

asp 自定義分段函數(shù)/求第N名成績(jī)

熱門(mén)標(biāo)簽:智能電銷(xiāo)機(jī)器人適用于哪些行業(yè) 徐州人工智能電銷(xiāo)機(jī)器人好用嗎 地圖標(biāo)注服務(wù)哪家好 武漢營(yíng)銷(xiāo)電話(huà)機(jī)器人軟件 地圖標(biāo)注宅基地 西寧公司外呼系統(tǒng)平臺(tái) 外呼系統(tǒng)還用卡么 騰訊地圖標(biāo)注商戶(hù)關(guān)閉 長(zhǎng)沙防封電銷(xiāo)卡品牌
復(fù)制代碼 代碼如下:

Function splitx(strs1 As String, strs2 As String, n As Integer)

'自定義分段函數(shù) splitx([字符串],"分隔符",第n段)
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名的成績(jī) minx([考試名稱(chēng)],[類(lèi)別],[科目],n)
Dim con As Object
Dim RS As Object
Dim stsql As String
Dim kmf As String
kmf = Mid(kmi, 1, 1) "組"

Set con = Application.CurrentProject.Connection
Set RS = CreateObject("ADODB.Recordset")
STRSQL = "SELECT top 1 " kmi " as 達(dá)標(biāo)分 FROM 成績(jī)總表 "
STRSQL = STRSQL + " WHERE ((( " kmf " ) = " n ") And ((類(lèi)別) = '" lb "' and 考試名稱(chēng)='" KSMC "'))"
STRSQL = STRSQL + " ORDER BY " kmi
RS.Open STRSQL, con, 3, 3
If RS.EOF Then
minx = 0
Else
minx = RS("達(dá)標(biāo)分")
End If
RS.Close
Set RS = Nothing
Set con = Nothing
End Function

標(biāo)簽:運(yùn)城 雅安 鷹潭 通遼 荊門(mén) 通化 巴彥淖爾 普洱

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp 自定義分段函數(shù)/求第N名成績(jī)》,本文關(guān)鍵詞  asp,自定義,分段,函數(shù),求第,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp 自定義分段函數(shù)/求第N名成績(jī)》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于asp 自定義分段函數(shù)/求第N名成績(jī)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章