取某个字符或字符串在另一个字符串中出现的次数的函数

'-----------------------------------------------------------------------------

'名称 Count

'描述 取某个字符或字符串在另一个字符串中出现的次数

'参数

'     stringBeSearched As String       接受搜索的字符串表达式

'     stringToFind As String           要搜索的字符串表达式

'返回 Long 出现的次数，如果没有返回0

'异常 参数为Null返回0

'整理 KimSoft

'时间 2006-01-20

'-----------------------------------------------------------------------------

Function Count(stringBeSearched, stringToFind)

    Count = 0

    If IsNull(stringBeSearched) Or IsNull(stringToFind) Then Exit Function

    Count = UBound(Split(stringBeSearched, stringToFind))

End Function