Function Custom_GL(NUMBER) 'Custom_GL表示软件要调用的函数名,这个不可改变
Custom_GL = False 'False表示NUMBER不会被过滤,首先初始化设置号码不被过滤
BW = CInt(Left(NUMBER, 1)) 'BW表示号码的百位
SW = CInt(Mid(NUMBER, 2, 1)) 'SW表示号码的十位
GW = CInt(Right(NUMBER, 1)) 'GW表示号码的个位
If BW < SW Then
S = BW
BW = SW
SW = S
End If
If BW < GW Then
S = BW
BW = GW
GW = S
End If
If SW < GW Then
S = SW
SW = GW
GW = S
End If
S = SW 'S是中间数了
T = "%条件%"
If InStr("," & T & ",", "," & S & ",") <> 0 Then
Custom_GL = True '如果满足上面条件的就是true,也就是号码就会被过滤掉
Else
Custom_GL = False
End If
''''''''''''''''''
''''''''''''''''''
End Function '这是语法的结尾,请不要删了~~
''''''''''''''''''
''''''''''''''''''
|