asp 사용자 정의 세그먼트 함수/N 위 성적 구하 기
Function splitx(strs1 As String, strs2 As String, n As Integer)
' 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 minx([ ],[ ],[ ],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 FROM "
STRSQL = STRSQL + " WHERE ((( " & kmf & " ) <= " & n & ") And (( ) = '" & lb & "' and ='" & KSMC & "'))"
STRSQL = STRSQL + " ORDER BY " & kmi
RS.Open STRSQL, con, 3, 3
If RS.EOF Then
minx = 0
Else
minx = RS(" ")
End If
RS.Close
Set RS = Nothing
Set con = Nothing
End Function
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Vue 어셈블리에서 여러 번 사용자 정의 매개변수 작업 재사용추가 정보: VUE 구성 요소(슬롯 slot 및 재사용 가능 구성 요소) 하위 구성 요소의 일부 내용이 부모 구성 요소를 통해 DOM을 전달할 때 부모 구성 요소props 전가의 비교적 좌절된 문법을 사용하지 않아도...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.