'-----------------------------------------------------------------------------
'名称 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