'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'判断是否为合法的电话号码 True 合法 False 非法
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function IsPhone(Str)
Dim strArray
IsPhone=False
strArray=Split(Str,"-",-1,1)
IF Ubound(strArray)> 0 Then
IF Len(strArray(0))>2 And Len(strArray(0))< 5 Then
IF Len(strArray(1))>6 And Len(strArray(1))< 9 Then
If IsNumeric(strArray(0))=True And IsNumeric(strArray(1)) Then
IsPhone=True
End If
End If
End If
End IF
End Function
'判断是否为合法的电话号码 True 合法 False 非法
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function IsPhone(Str)
Dim strArray
IsPhone=False
strArray=Split(Str,"-",-1,1)
IF Ubound(strArray)> 0 Then
IF Len(strArray(0))>2 And Len(strArray(0))< 5 Then
IF Len(strArray(1))>6 And Len(strArray(1))< 9 Then
If IsNumeric(strArray(0))=True And IsNumeric(strArray(1)) Then
IsPhone=True
End If
End If
End If
End IF
End Function