Function sfz
    Parameters cNumber
    #Define InvalidSize "身份证号码长度不正确！"
    #Define InvalidChar "身份证号码包括非法字符！"
    #Define InvalidDate "出生日期无效！"
    #Define InvalidReturnValue ".F."
    Private cString
    Do Case
        Case Len(cNumber) = 15
            cString = Stuff(cNumber,7,0,"19")
        Case Len(cNumber) = 18
            cString =Left(Alltrim(cNumber),17)
        Otherwise
            Messagebox(InvalidSize,48,"信息提示")
            Return InvalidReturnValue
    Endcase
    Private i,N,iRet
    Store 0 To iRet
    For i = 1 To 17
        N = Substr(cString,i,1)
        If Not Isdigit(N)
            Messagebox(invalidChar,48,"信息提示")
            Return invalidReturnValue
        Endif
        N = 2 ^ (18 - i) % 11 * Val(N)
        iRet = iRet + N
    Endfor
    iRet = iRet % 11 + 1
    Private oldDateSet, oldCentury
    Private oldStrictDate, BirthDay
    oldDateSet = Set("DATE")
    oldCentury = Set("CENTURY")
    oldStrictDate = Set("STRICTDATE")
    Set Date Ansi
    Set Century On
    Set StrictDate To 0
    BirthDay = Ctod(Substr(cString,7,4)+"-"+Substr(cString,11,2)+"-"+Substr(cString,13,2))
    Set StrictDate To &oldStrictDate
    Set Century &oldCentury
    Set Date &oldDateSet
    If Empty(BirthDay)
        Messagebox(InvalidDate,48,"信息提示")
        Return InvalidReturnValue
    Endif
    Return cString+Substr("10x98765432",iRet,1)
Endfunc

这需要公安的身份证号发放地代码库，并且数据表上要有出生地信息登记，拿这个信息与发放地代码库相比较就校验出来了

谢谢各位老师，因为这几天有点忙没来的及看。我要好好试一下。再次感谢。

你好：能给个实例吗？谢谢

是不是应该重开一贴问呢

前面的六位是全国行政区域编码，不同地域的代码都不一样，

只能驗證格式是否正確，無法驗證身份證號碼的真偽。

现在的新身份证是18位，前6位是地址码：可以从国家统计局的网站下站一个全国行政区划代码，复制、粘贴到文本文件中，想办法导入你的数据表中。通过这个代码就可以判断前6位地址码是否正确。
中间8位是出生年月日：这个如何界定正确与否，没有一个判断标准，只有自己掌握。
第15、16位是地址码中（是以第5、6位代码表示的）所在地同年同月同日生的人的顺序号。
第17位代码表示男女，男为1，女为2
第18位代码是校验码。身份证号码具体编码原则，看下面内容：

18位公民身份证编码规则

18位身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》中做了明确规定。GB11643- 1999《公民身份号码》为GB11643-1989《社会保障号码》的修订版，其中指出将原标准名称“社会保障号码”更名为“公民身份号码”，另外 GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。 排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位校验码。其含义如下：
1. 地址码：表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。
2. 出生日期码：表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日分别用4位、2位、2位数字表示，之间不用分隔符。
3. 顺序码：表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。

校验的计算方式：
1. 对前17位数字本体码加权求和
公式为：S = Sum(Ai * Wi), i = 0, ... , 16
其中Ai表示第i位置上的身份证号码数字值，Wi表示第i位置上的加权因子，其各位对应的值依次为： 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
2. 以11对计算结果取模
Y = mod(S, 11)
3. 根据模的值得到对应的校验码
对应关系为：
    Y值： 0 1 2 3 4 5 6 7 8 9 10
校验码： 1 0 X 9 8 7 6 5 4 3 2

关于18位身份证号码尾数是“X”的解释
居民身份证的号码是按照国家的标准编制的，由18位组成：前六位为行政区划代码，第七至第十四位为出生日期码，第15至17位为顺序码，第18位为校验 码。作为尾号的校验码，是由号码编制单位按统一的公式计算出来的，如果某人的尾号是0-9，都不会出现X，但如果尾号是10，那么就得用X来代替，因为如 果用10做尾号，那么此人的身份证就变成了19位，而19位的号码违反了国家标准，并且我国的计算机应用系统也不承认19位的身份证号码。Ⅹ是罗马数字的 10，用X来代替10，可以保证公民的身份证符合国家标准。但是我国的居民身份证在升位后，一些人的尾号变成了X，这部分人在工作生活中，例如去银行存取 钱、去汽车公司租赁汽车或者报名参加考试等等过程中，往往不被检验者理解，认为是假身份证，这样的误会给很多人的生活带来不便。公安局的同志希望领到X身 份证的同志正确理解这个数字的含义，查验身份证的机关和单位更应该清楚这一点。

收到的鲜花

• TonyDeng 于 2012-01-24 01:35 送鲜花  10朵   附言：有用的資料

续上
在输入过程中，第18位校验码是最关键的，千万不能输错。

這個資料極其有用。請問有沒有在拆分、合併行政區時，如何處理已發放身份證代碼的辦法？