duongpham90
Thành viên mới
- Tham gia
- 5/7/10
- Bài viết
- 5
- Được thích
- 0
cho mình hỏi về hàm instrRev(string1,string2,start,compare) trong vba. ví dụ cho một chuỗi string1 "phantuntuc" và string2 "n".vị trí bắt đầu thì tính từ bên phải hay bên trái. nếu là instrrev(str1,str2,4,1); instrrev(str1,str2,6,-1) thì kết quả là như thế nào. Và giải thích giùm mình cái dòng in nghiêng trong function sau:
Function tachhoten(ByVal hovaten As String, Optional tachten As Boolean = True) As String
Dim pos As Integer
If hovaten = "" Then GoTo endfunc:
hovaten = Trim(hovaten)
pos = InStrRev(hovaten, "")
If pos = 0 Or pos - 1 < 0 Or pos + 1 > Len(hovaten) Then GoTo endfunc:
End If
If tachten Then
tachhoten = Mid(hovaten, pos + 1)
Else
tachhoten = Left(hovaten, pos - 1)
End If
endfunc:
End Function
cảm ơn trước
Function tachhoten(ByVal hovaten As String, Optional tachten As Boolean = True) As String
Dim pos As Integer
If hovaten = "" Then GoTo endfunc:
hovaten = Trim(hovaten)
pos = InStrRev(hovaten, "")
If pos = 0 Or pos - 1 < 0 Or pos + 1 > Len(hovaten) Then GoTo endfunc:
End If
If tachten Then
tachhoten = Mid(hovaten, pos + 1)
Else
tachhoten = Left(hovaten, pos - 1)
End If
endfunc:
End Function
cảm ơn trước
Lần chỉnh sửa cuối:
