相同数字如何检测

ycxchen

为便于管理，我在一些记录的手机号码字段用相同的数字作标记，例如，0000000000等。请问，如何用代码或函数检测手机号码里的11位数字都是相同的？

Henry D. Sy

不明白你在说什么

ycxchen

举个例子，有如下两条记录:
姓名            手机号码
小陈            13509980001
小王            00000000000
我想用代码或函数将手机号码里的11位数字都是相同数字的记录检测出来，即将小王的记录检测出来，如何办呢？

Henry D. Sy

try
定义一个数组来保存经过分割出来的11个数字，然后比较。

ycxchen

谢谢大家！4楼的办法较好，有例子吗?
对于5楼的，目的达到但不实际。因为，手机号码是00000000000的只是一个例子，我的目的是想手机号码是类似00000000000、11111111111等相同数字的如何检测。盼指教

andymark

select * from 表 where  mid(手机号码,1,5)=mid(手机号码,6,5) and  mid(手机号码,1,1)=mid(手机号码,2,1) and mid(手机号码,1,1)=mid(手机号码,3,1) and mid(手机号码,1,1)=mid(手机号码,4,1) and mid(手机号码,1,1)=mid(手机号码,5,1) and mid(手机号码,1,1)=mid(手机号码,11,1)

Henry D. Sy

Public Function CompareField(strField As String) As Boolean
    Dim str, strTemp As String
    Dim I As Integer
    str = Mid(strField, 1, 1)
    CompareField = True
    For I = 1 To Len(strField)
        strTemp = Mid(strField, I, 1)
        If strTemp <> str Then
            CompareField = False
            Exit Function
        End If
    Next
End Function

SELECT A.姓名, A.号码
FROM A
WHERE (((CompareField([号码]))=True));

[ 本帖最后由 dddddd 于 2008-10-7 00:00 编辑 ]

ACMAIN_CHM

很简单，直接除11111111111取模为0的就行了
=mod(a1,11111111111)=0

把为TRUE的筛选出来就行了。

Henry D. Sy

如果保证都是11位，则9楼的方法可行。

ycxchen

十分感谢各位的热心指教！真的很感谢大家！