当前位置：搜档网 › 一个18位身份证校验计算函数

一个18位身份证校验计算函数

因需要对15位旧身份证号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。

本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给大家自己扩展吧！

' Version: 1.0.1

' Author: sfply(sfply@https://www.sodocs.net/doc/929098064.html,)

' Last Modified: 2004/7/17 12:03

' Src是身份证号码,可以是15位也可以是18位,15位时只能返回验证码方式使用

' iChk参数取值真假,真代表校验Src是否18位身份证，并且校验第18位是否正确号码而确定是否有效身份证,返回只值为true或false

' 假代表返回正确的校验码，返回值为(1~x)

dim myIdentify

myIdentify = "36050219781218133?"

response.write chkIdentiyCard(myIdentify,false)

Function chkIdentiyCard(Src,iChk)

dim myWi,myAi,mySrc(17),i,myCount

myAi = "10X98765432"

myWi = split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",")

if iChk then

if len(Src) = 18 then

for i = 0 to 16

mySrc(i) = mid(Src,i+1,1)

myCount = myCount + mySrc(i) * myWi(i)

if mid(myAi,(mycount mod 11)+1,1) = right(Src,1) then

chkIdentiyCard = true '返回结果，TRUE为合法身份证验证码

else

chkIdentiyCard = false '返回结果，FALSE为非法身份证验证码

end if

else

chkIdentiyCard = false '因为不是18位身份证所以返回FALSE

end if

else

if len(Src) = 15 or len(Src) = 18 then

if len(Src) = 15 then Src = mid(Src,1,6) & "19" & mid(Src,7,9)

for i = 0 to 16

mySrc(i) = mid(Src,i+1,1)

myCount = myCount + mySrc(i) * myWi(i)

chkIdentiyCard = mid (myAi,(mycount mod 11)+1,1) '返回正确的验证码 else

chkIdentiyCard = false '输入不不是15位或18位身份证号

end if

End Function

关于身份证第18是怎么计算的，原理如下

根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。

地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。

15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19，但是这对于1900年出生的人不使用（这样的寿星不多了）

某男性公民身份号码本体码为34052419800101001，首先按照公式⑴计算：

∑(ai×Wi)(mod 11) (1)

公式(1)中：

i----表示号码字符从由至左包括校验码在内的位置序号；

ai----表示第i位置上的号码字符值；

Wi----示第i位置上的加权因子，其数值依据公式Wi=2（n-1）(mod 11)计算得出。

i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1

ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1

Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1

ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1

根据公式(1)进行计算：

∑(ai×Wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189

189 ÷ 11 = 17 + 2/11

∑(ai×Wi)(mod 11) = 2

然后根据计算的结果，从下面的表中查出相应的校验码，其中X表示计算结果为10：

∑(ai×WI)(m od 11) 0 1 2 3 4 5 6 7 8 9 10

校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2

根据上表，查出计算结果为2的校验码为所以该人员的公民身份号码应该为340524************。

a[0]*7+a[1]*9+a[2]*10+a[3]*5+a[4]*8+a[5]*4+a[6]*2+a[7]*1+a[8]*6+a[9 ]*3

+a[10]*7+a[11]*9+a[12]*10+a[13]*5+a[14]*8+a[15]*4+a[16]*2

Excel判断身份证号校验码

Excel判断身份证号校验码假设在一个工作表中：A列是姓名，B列是身份证号码，C列是备注。在B列中输入18位身份证号码后，在C2单元格中输入计算数组公式： =RIGHT(B2,1)=MID("10X98765432",MOD(SUM(MID(B2,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1) 然后再将该公式复制给C列其他单元格。公式的计算结果是一个逻辑值，True表示校验正确，即计算出来的校验码与输入的相同，而False则表示校验错误。值得注意的是，使用校验码进行校验判断为正确的身份证号码未必是正确的，但判断为错误的则肯定是错误的，即通过校验的只是身份证号码正确的必要条件而非充分条件。当然，在实际输入中，身份证号码输入错误而校验正确的情况很少见。在大多数情况下，使用校验码进行校验可以大大提高身份证号码输入的正确性。 RIGHT 根据所指定的字符数返回文本字符串中最后一个或多个字符。 MID 返回文本字符串中从指定位置开始的特定数目的字符，该数目由用户指定。 MOD 返回两数相除的余数。SUM 返回某一单元格区域中所有数字之和。ROW 返回引用的行号。INDIRECT 返回由文本字符串指定的引用。或者输入数组公式： =IF(LEN(B2)<>18,"错误 ",IF(MID("10X98765432",MOD(SUM(MID(B2,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1)=MID(B2,18,1), "正确","错误"))

公民身份证号码18位数字含义

公民身份证号码18位数字含义2010.07 目前我国公民身份证号码由18位数字组成：前6位为地址码，第7至14位为出生日期码，第15至17位为顺序码，第18位为校验码。检验码分别是“0、1、2、……10”共11个数字，当检验码为“10”时，为了保证公民身份证号码18位，所以用“X”表示。虽然校验码为“X”不能更换，但若需全用数字表示，只需将18位公民身份号码转换成15位居民身份证号码，去掉第7至8位和最后1位3个数码。当今的身份证号码有15位和18位之分。1985年我国实行居民身份证制度，当时签发的身份证号码是15位的，1999年签发的身份证由于年份的扩展（由两位变为四位）和末尾加了效验码，就成了18位。这两种身份证号码将在相当长的一段时期内共存。两种身份证号码的含义如下： 18位的身份证号码如：130429####%%%%0078 1~6位为地区代码，其中1、2位数为各省级政府的代码，3、4位数为地、市级政府的代码，5、6位数为县、区级政府代码。如13（河北省）04（邯郸市）29（永年县） 7~14位为出生年月日 15~17位为顺序号，是县、区级政府所辖派出所的分配码，每个派出所分配码为10个连续号码，例如“000-009”或“060-069”，其中单数为男性分配码，双数为女性分配码，如遇同年同月同日有两人以上时顺延第二、第三、第四、第五个分配码。如：007的就是个男生而且和他同年月日生的男生至少有两个他们的后四位是001* 和003* 18位为效验位（识别码），通过复杂公式算出，普遍采用计算机自动生成。是前面17位的一种检验代码，如果你改变了前面某个数字而后面的效验代码不响应改变就会被计算软件判断为非法身份正号码。X也是效验代码的一中 15位的身份证号码：（1）1~6位为地区代码（2）7~8位为出生年份(2位)，9~10位为出生月份，11~12位为出生日期（3）第13~15位为顺序号，并能够判断性别，奇数为男，偶数为女。《中华人民共和国行政区划代码》 (GB/T2260-1995)

通过excel公共函数计算二代公民身份证号码末位校验码

通过excel公共函数计算二代公民身份证号码末位校验码/验证码（附公式可直接使用）闲来无事，用EXCEL写了个公式（本文最后），可以根据身份证号码前17位计算第18位校验码的，经过验证，非常有效。使用这个公式可以自己随意编造可以通过验证的身份证号码（感觉在为办证的做贡献。。。） 18位身份证号码的结构：现在的二代身份证由18位数字组成 1、前6位是行政区规划代码，第一位是区位号（如西北、西南），第二位为省份编号，第三、四位是城市编号，第五、六位是县区编号，01-19代表市辖区，20以后代表郊县、县级市等辖区。具体的行政区域规划码可以可以在国家统计局网站查询： https://www.sodocs.net/doc/929098064.html,/tjbz/xzqhdm/t20021125_46781.htm 2、第7-14位是出生年月日，格式是yyyymmdd； 3、第15-17位是顺序码，即同一地区相同生日的人的顺序编码，随便写； 4、第18位是根据GB 11643-1999和IOS 7064计算出的校验码，计算方式比较复杂，文章中的公式就是用来计算这个校验码的！下图是完整的身份证效验码计算方式：但是因为上图中的公式太多，不方便直接使用，所以我把上图中所有的公式整合到了一个单元格中，就是下面的超级公式~！现在，打开excel，先将A1单元格属性设置为文本，再把你准备好的1-17位身份证号码填入A1单元格，然后把公式拷到随便哪个单元格中，完整的身份证号码就计算出来了！还可以用下拉的方式同时计算多个号码，很省事吧！

公式如下： =IF((LEN(A1))=17,(A1&IF(VALUE(MOD((SUM((MID(A1,1,1))*7,(MID(A1,2,1)) *9,(MID(A1,3,1))*10,(MID(A1,4,1))*5,(MID(A1,5,1))*8,(MID(A1,6,1))*4, (MID(A1,7,1))*2,(MID(A1,8,1))*1,(MID(A1,9,1))*6,(MID(A1,10,1))*3,(MI D(A1,11,1))*7,(MID(A1,12,1))*9,(MID(A1,13,1))*10,(MID(A1,14,1))*5,(M ID(A1,15,1))*8,(MID(A1,16,1))*4,(MID(A1,17,1))*2)),11))=0,1,(IF(VALU E(MOD((SUM((MID(A1,1,1))*7,(MID(A1,2,1))*9,(MID(A1,3,1))*10,(MID(A1, 4,1))*5,(MID(A1,5,1))*8,(MID(A1,6,1))*4,(MID(A1,7,1))*2,(MID(A1,8,1) )*1,(MID(A1,9,1))*6,(MID(A1,10,1))*3,(MID(A1,11,1))*7,(MID(A1,12,1)) *9,(MID(A1,13,1))*10,(MID(A1,14,1))*5,(MID(A1,15,1))*8,(MID(A1,16,1) )*4,(MID(A1,17,1))*2)),11))=1,0,(IF(VALUE(MOD((SUM((MID(A1,1,1))*7,( MID(A1,2,1))*9,(MID(A1,3,1))*10,(MID(A1,4,1))*5,(MID(A1,5,1))*8,(MID (A1,6,1))*4,(MID(A1,7,1))*2,(MID(A1,8,1))*1,(MID(A1,9,1))*6,(MID(A1, 10,1))*3,(MID(A1,11,1))*7,(MID(A1,12,1))*9,(MID(A1,13,1))*10,(MID(A1 ,14,1))*5,(MID(A1,15,1))*8,(MID(A1,16,1))*4,(MID(A1,17,1))*2)),11))= 2,"X",12-VALUE(MOD((SUM((MID(A1,1,1))*7,(MID(A1,2,1))*9,(MID(A1,3,1) )*10,(MID(A1,4,1))*5,(MID(A1,5,1))*8,(MID(A1,6,1))*4,(MID(A1,7,1))*2 ,(MID(A1,8,1))*1,(MID(A1,9,1))*6,(MID(A1,10,1))*3,(MID(A1,11,1))*7,( MID(A1,12,1))*9,(MID(A1,13,1))*10,(MID(A1,14,1))*5,(MID(A1,15,1))*8, (MID(A1,16,1))*4,(MID(A1,17,1))*2)),11)))))))),"输入长度不等于17位！")

身份证号码第十八位效验码的计算方法

身份证号码第十八位效验码的计算方法- godson_h的专栏- CSDN 博客默认分类2010-04-10 07:56:04 阅读141 评论0 字号：大中小订阅身份证号码第十八位效验码的计算方法关于身份证第18是怎么计算的，原理如下：根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。地址码（身份证前六位）表示编码对象常住户口所在县(市、旗、区)的行政区划代码。（所有区域的编码可以到这个网站https://www.sodocs.net/doc/929098064.html,/tjbz/index.htm 查询到最新的县及县以上的行政编码资料。）生日期码（身份证第七位到第十四位）表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。例如：1981年05月11日就用19810511表示。顺序码（身份证第十五位到十七位）为同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。其中第十七位奇数分给男性，偶数分给女性。校验码（身份证最后一位）是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。第十八位数字的计算方法为： 1.将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为： 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 2.将这17位数字和系数相乘的结果相加。 3.用加出来和除以11，看余数是多少？ 4余数只可能有0 1 2 3 4 5 6 7 8 9 10这11个数字。其分别对应的最后一位身份证的号码为 1 0 X 9 8 7 6 5 4 3 2。 5.通过上面得知如果余数是2，就会在身份证的第18位数字上出现罗马数字的Ⅹ。如果余数是10，身份证的最后一位号码就是2。例如：某男性的身份证号码是340524************。我们要看看这个身份证是不是合法的身份证。首先：我们得出，前17位的乘积和是189 然后：用189除以11得出的结果是17 + 2/11，也就是说余数是2。最后：通过对应规则就可以知道余数2对应的数字是x。所以，这是一个合格的身份证号码。

身份证校验码的解释

身份证校验码的解释新居民身份证的号码是按照国家的标准编制的，由18位组成：前六位为行政区划代码，第七至第十四位为出生日期码，第15至17位为顺序码，第18位为校验码。作为尾号的校验码，是由号码编制单位按统一的公式计算出来的，如果某人的尾号是0-9，都不会出现X，但如果尾号是10，那么就得用X来代替，因为如果用10做尾号，那么此人的身份证就变成了19位，而19位的号码违反了国家标准，并且我国的计算机应用系统也不承认19位的身份证号码。Ⅹ是罗马数字的10，用X来代替10，可以保证公民的身份证符合国家标准。身份证中第十八位数字的计算方法为： 1.将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为：7、9、10、5、8、4、2、1、6、3、7、9、10、5、8、4、2。 2.将这17位数字和系数相乘的结果相加。 3.用加出来和除以11，看余数是多少？ 4余数只可能有0 、1、2、3、4、5、6、7、8、9、10这11个数字。其分别对应的最后一位身份证的号码为1、0、X、9、8、7、6、5、4、3、2。 5.通过上面得知如果余数是2，就会在身份证的第18位数字上出现罗马数字的Ⅹ。如果余数是10，身份证的最后一位号码就是2。例如：某男性的身份证号码是340524************。我们要看看这个身份证是不是合法的身份证。首先：我们得出，前17位的乘积和是189 然后：用189除以11得出的结果是17 + 2/11，也就是说余数是2。最后：通过对应规则就可以知道余数2对应的数字是x。所以，这是一个合格的身份证号码。

这里面说的很清楚了，最后一位是用来辨别身份证真假的一种办法。而不是同年同月同日生的人的识别码。贴个JA V A实现的校验算法 public static char doV erify(String id); { char pszSrc[]=id.toCharArray();; int iS = 0; int iW[]={7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2}; char szVerCode[] = new char[]{'1','0', 'X', '9', '8', '7', '6', '5', '4', '3', '2'}; int i; for(i=0;i<17;i++); { iS += (int);(pszSrc-'0'); * iW; } int iY = iS%11; return szVerCode[iY]; } =IF(LEN(A101)=15,REPLACE(A101,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLAC E(A101,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A101 excel计算最后一位的公式,也就是个校验码而已

一个18位身份证校验计算函数.docx

-个18位身份证校验计算函数因需要对15位旧身份证号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给人家自C扩展吧！ <% ' Version: 1. 0. 1 'Author: sfply(sfply@163. com) 'Last Modified: 2004/7/17 12:03 'Src是身份证号码，可以是15位也可以是18位，15位时只能返回验证码方式使用 'iChk参数取值真假，真代表校验Six是否18位身份证，并且校验第18位是否正确号码而确定是否有效身份证，返冋只值为true或false ' 假代表返回止确的校验码，返回值为(l~x) dim myldentify myTdentify 二〃36050219781218133?〃 response .write chkldentiyCard(myldentify, false) Function chkldentiyCard(Src,iChk)

dim myWi, myAi, mySrc(17), i, myCount myAi =，z 10X98765432' myWi = split(z/7, 9, 10, 5, & 4, 2, 1, 6, 3, 7, 9, 10, 5, & 4, 2〃，〃，〃) if iChk then if len (Src) = 18 then for i = 0 to 16 mySrc(i)二mid(Src, i + 1, 1) myCouni 二myCount + mySrc(i) * myWi(i) next if mid(myAi, (mycount mod 11)+1,1) = right (Src,1) then chkldcntiyCard = true '返回结果，TRUE为合法身份证验证码 el se chkldentiyCard = false '返回结果，FALSE为非法身份证验证码 end if else chkldentiyCard = false '因为不是18位身份证所以返[H] FALSE end if el se if len(Src)二15 or len(Src)二18 then if len(Src) = 15 then Src = mid(Src, 1, 6) & "19〃 & mid(Src, 7, 9) for i = 0 to 16 mySrc(i)二mid(Src, i + 1, 1) myCount 二myCount + mySrc(i) * myWi (i) n ext chkldentiyCard = mid (myAi, (mycount mod 11)+1, 1)'返回正确的验证码else chkldentiyCard二false '输入不不是15位或18位身份证号 end if end if Encl Function

18位身份证号编制规则

18位身份证号编制规则一、身份证号码执行标准：18位身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》。 GB11643-1999《公民身份号码》为GB11643-1989《社会保障号码》的修订版，其中指出将原标准名称“社会保障号码”更名为“公民身份号码”，另外GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。二、编码规则：公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位校验码，可以用字母表示如为ABCDEFYYYYMMDDXXXR。其含义如下： 1. 地址码（ABCDEF）：表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T22 60的规定执行。 2. 出生日期码（YYYYMMDD）：表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日分别用4位、2位（不足两位加0）、2（同上）位数字表示，之间不用分隔符。 3. 顺序码（XXX）：表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。 4．校验码（R），一位数字，通过前17位数字根据一定计算得出。三、关于地址码含义的详细解释：身份证前六位是地区代码，我们用ABCDEF表示。代码的解释规则如下： A:国内区域 1 华北三省二市 2 东北三省 3 华东六省一市

4 华南六省 5 西南四省一市 6 西北五省 7 台湾 8 港澳 B（或者说是AB，就是前2位）:省（直辖市，自治区，特别行政区）代码按照A划定的分区定义省代码，有直辖市的，直辖市列前，其余按离直辖市的距离排序，没有直辖市的，按离北京的远近排序。具体省（直辖市，自治区，特别行政区）代码如下： 11-15 京津冀晋蒙 21-23 辽吉黑 31-37 沪苏浙皖闽赣鲁 41-46 豫鄂湘粤桂琼 50-54 渝川贵云藏 61-65 陕甘青宁新 81-82 港澳 CD:城市代码从01开始排，对于直辖市，CD=01表示市辖区，CD=02表示辖县；省的城市代码从省会开始排，比如2101=沈阳2102=大连…… 只有地级城市有独立的城市代码，县级市没有。 EF:市辖区、郊区、郊县、县级市代码

18位身份证号码输入的几种解决方法

18位身份证号码输入的几种解决方法: 1、在A1单元输入号码时，在前面先输入?号，就是：?123456789012345,这样单元格会默认为该单元为文本方式，会完整显示出15个号码来，而不会显示那令人讨厌的科学计数方式来了。 2、如果已经输入了大量的号码，全部以科学计数显示的话，而又懒的按照上面的方法一个一个的重新输入的话，也有这个好方法哦，比如已在单元A1：A100输入了号码，按以下步骤做：》选择单元A1：A100》单击鼠标右键，设置单元格式》选择自定义，在…类型?中输入…0?即可，轻松搞定，呵呵！！ 3、还有一种用函数来解决的方法：在A1：A100已经输入大量的号码时，在B1单元中输入：=trim(' 'a1),注意两个?之间是空格，这个公式的意思:先在A1单元15位号码前加个空格符号，然后用trim这个函数把空格符号去掉。输完后，B1单元也是显示出完整的15位数字了。最佳答案使WORD里面的文章自动生成目录: 假如文章中标题格式为第一节……大标题（一级） 1.1……小标题（二级） 1.1.1—……小标题下的小标题（三级） …… 第N节……大标题（一级） n.1……小标题（二级） n.1.1—……小标题下的小标题（三级）自动生成文章目录的操作：一、设置标题格式 1.选中文章中的所有一级标题； 2.在“格式”工具栏的左端，“样式”列表中单击“标题1”。仿照步骤1、2设置二、三级标题格式为标题2、标题3。二、自动生成目录 1.把光标定位到文章第1页的首行第1个字符左侧（目录应在文章的前面）； 2.执行菜单命令“插入/引用/索引和目录”打开“索引的目录”对话框； 3.在对话框中单击“目录”选项卡，进行相关设置后，单击“确定”按钮，文章的目录自动生成完成。友情提示：

范文：EXCEL身份证核对公式

EXCEL身份证核对公式 EXCEL中你输入的公民身份号码正确吗? 目录:1、输入错误自动红色显示提示 2、15位身份证号码升位为18位公民身份号码 3、自动生成出生日期和性别 4、中华人民共和国国家标准GB 11643-1999 公民身份号码一、输入错误自动红色显示提示在企业报送的EXCEL电子表格中,经常遇到公民身份号码输入错误而给工作带来不必要的麻烦,降低了工作效率。有没有办法在公民身份号码录入错误时进行自动提示呢? 其实【中华人民共和国国家标准GB 11643-1999】对公民身份号码第18位校验码已作了详细的规定,只是我们在电算工作中很少用到而已。可用以下方法在EXCEL中录入公民身份号码错误时自动红字显示: 选择需要录入公民身份号码的单元格(如A1),选择菜单:格式/条件格式。 ①点击条件1左边的下拉箭头,选择公式,在右边的公式栏中输入以下公式:

=AND(LEN(D4)<>0,LEN(D4)<>15,LEN(D4)<>18) 接着单击格式,点击字体,颜色选择红色,确定。 ②在条件格式中点添加,点击条件2左边的下拉箭头,选择公式,在右边的公式栏中输入以下公式: =MID("10X98765432",MOD(SUMPRODUCT(MID(D4,ROW($1:$ 17),1)*MOD(2^(18-ROW($1:$17)),11) ),11)+1,1)<>MID(D4,18,1) 接着单击条件2中的格式,点击字体,颜色选择红色,确定,确定。右键按住A1单元格右下角的小黑点,向下拖至所需要录入公民身份号码的所有单元格,松开右键,选择仅填充格式。在接着的录入中,凡是输入不是15位或18位,或者输入18位错误的公民身份号码都会红色显示。身份证重复显蓝色的公式:COUNTIF($D$4:$D$65536,D4)>1 二、15位身份证号码升位为18位公民身份号码要使单元格中A1中的15位身份证号码升位为18位公民身份号码,只需在单元格A2中输入以下公式即可: =REPLACE(A1,7,,19)&MID("10X98765432",MOD(SUMPRODU CT(MID(REPLACE(A1,7,,19),ROW($1:$1 7),1)*MOD(2^(18-ROW($1:$17)),11)),11)+1,1)或 =REPLACE(A1,7,,19)&LOOKUP(MOD(SUMPRODUCT(MID(RE PLACE(A1,7,,19),ROW($1:$17),1)*MOD(2

EXCEL身份证计算筛选公式

EXCEL身份证计算筛选公式 EXCEL身份证年龄数值(XX岁)计算公式: =DATEDIF(TEXT(MID(A1,7,INT(LEN(A1)/2-1)),"#-00-00"),TODAY(),"Y") =DATEDIF(TEXT(MID(A1,7,INT(LEN(A1)/2-1)),"#-00-00"),"2012-6-30","Y") EXCEL身份证年龄范围(<=>XX岁)筛选公式: =IF((DATEDIF(TEXT(MID(A1,7,LEN(A1)*2/3-4),"00-00- 00"),TODAY(),"Y"))>=65,"是","否") =IF((DATEDIF(TEXT(MID(A1,7,LEN(A1)*2/3-4),"00-00-00"),"2012-6-30","Y"))>=65,"是","否") EXCEL身份证年龄范围(XX岁~XX岁)筛选公式: =IF(AND((YEAR(TODAY())-MID(A1,7,4))>=18,(YEAR(TO DAY())-MID(A1,7,4)<=22)),"是","不是") =IF(AND((YEAR("2012-6-30")-MID(A1,7,4))>=18,(YEAR("2012-6-30")- MID(A1,7,4)<=22)),"是","不是") A1:身份证号所在单元格 TODAY:时间为到今天为止 2012-6-30:时间为到2012年6月30日为止 >=65:年龄范围大于等于65岁 >=18 <=22:年龄范围大于等于18岁且小于等于22岁若身份证号在A1，则上述公式在B1输入得到年龄数值，而"是"或"否"/"是"或"不是"即筛选后得到的结果判定，再下拉复制，最后进行数据自动自定义筛选 EXCEL身份证性别(男/女)筛选公式:

Excel表格身份证号码提取出生日期的公式

Excel表格身份证号码提取出生日期的公式（B2表示身份证号码所在的列位置） =MID(B2,7,4)&"-"&MID(B2,11,2)&"-"&MID(B2,13,2)回车→向下填充1. Excel表中用身份证号码中取其中的号码用:MID(文本,开始字符,所取字符数); 2. 15位身份证号从第7位到第12位是出生年月日，年份用的是2位数。 3. 18位身份证号从第7位到第14位是出生的年月日，年份用的是4位数。一、提取出生年月： A、15位身份证号码： =MID(B2,7,2)&"-"&MID(B2,9,2)&"-"&MID(B2,11,2) 回车确认即可。 B、18位身份证号码： =MID(B2,7,4)&"年"&MID(B2,11,2)&"月"&MID(B2,13,2)&”日”回车确认即可。二、提取性别： 18位身份证号码： =IF(MOD(MID(B2,17,1),2)=1,"男","女")回车确认即可。 *excel公式中=IF(MOD(MID(E4,17,1),2)=0,"女","男")是什么意思？ IF是选择函数，当MOD(MID(E4,17,1),2)=0成立时，单元格显示“女”，否则显示“男”。 MOD是取模函数，即是一个求余函数，求MID(E4,17,1)除以2的余数。实质是判断MID(E4,17,1)的奇偶性。 MID从一个文本字符串的指定位置开始，截取指定数目的字符。MID(E4,17,1)是从E4单元格的文本中的第17个字符开始，取一个字符。三、提取年龄： =year(today())-value(right(left(B2，10),4)) 回车确认即可。

18位身份证号码验证算法

‘算法为Excel表中用VBA实现身份证号码验证。只验证身份证号码正确否，不验证是否存在此身份证号码。算法思想可普遍适用其他地方。 Sub 身份证号码验证算法() Dim sfzArray(1 To 18) As Integer ‘身份证号码数组，数组每个元素记录每一位号码 Dim sfzPointer As Integer’身份证位数指针，指向每一位号码 Dim checkStart As Long’需验证的起始位置，Excel中第一个身份证号码行号 Dim checkEnd As Long’需验证的最后位置，Excel中最后一个身份证号码行号 Dim checkPointer As Long’验证指针，指向验证的位置 Dim sfzSum As Integer’身份证位数求和 Dim checkWord As String’校验位 Dim initialV alue As String’Excel表中身份证号码初始值 checkStart=2’根据实际情况修改 checkEnd=50000’根据实际情况修改 For checkPointer= checkStart To checkEnd initialV alue = CStr(Cells(checkPointer, 1))’默认Excel表第一列是身份证号码，根据实际情况修改 sfzSum = 0’初始化 For sfzPointer = 1 To 17 sfzArray(sfzPointer) = CInt(Mid(initialV alue, sfzPointer, 1))’对应位赋值给身份证号码数组 Select Case sfzPointer’根据位数不同，求和 Case 1, 11 sfzSum = sfzSum + sfzArray (sfzPointer) * 7 Case 2, 12 sfzSum = sfzSum + sfzArray (sfzPointer)* 9 Case 3, 13 sfzSum = sfzSum + sfzArray (sfzPointer) * 10 Case 4, 14 sfzSum = sfzSum + sfzArray (sfzPointer) * 5 Case 5, 15 sfzSum = sfzSum + sfzArray (sfzPointer)* 8 Case 6, 16 sfzSum = sfzSum + sfzArray (sfzPointer) * 4 Case 7, 17 sfzSum = sfzSum + sfzArray (sfzPointer) * 2 Case 8 sfzSum = sfzSum + sfzArray (sfzPointer) * 1 Case 9 sfzSum = sfzSum + sfzArray (sfzPointer) * 6 Case 10 sfzSum = sfzSum + sfzArray (sfzPointer) * 3 End Select Next sfzPointer sfzSum = sfzSum Mod 11 Select Case sfzS um’根据求模后的余数，可得校验位 Case 0 checkWord = 1 Case 1 checkWord = 0 Case 2 checkWord = "X" Case 3 checkWord = 9 Case 4 checkWord = 8

身份证编码规则

中国公民身份证编号规则一、身份证号码执行标准：18位身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》。 GB11643-1999《公民身份号码》为GB11643-1989《社会保障号码》的修订版，其中指出将原标准名称“社会保障号码”更名为“公民身份号码”，另外GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。二、编码规则：公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位校验码，可以用字母表示如为ABCDEFYYYYMMDDXXXR。其含义如下： 1. 地址码（ABCDEF）：表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。 2. 出生日期码（YYYYMMDD）：表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日分别用4位、2位（不足两位加0）、2位（同上）数字表示，之间不用分隔符。 3. 顺序码（XXX）：表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。 4．校验码（R），一位数字，通过前17位数字根据一定计算得出。第17位数字是表示在前16位数字完全相同时，某个公民的顺序号，并且单数用于男性，双数用于女性。如果前16位数字均相同的同性别的公民超过5人，则可以“进位”到第16位。比如：有6位女性公民前16位数字均相同，并假设第16位数是7，则这些女性公民的末两位编号分别为72，74，76，78，80，82。另外，还特殊规定，最后三位数为996，997，998，999这4个号码为百岁老人的代码，这4个号码将不再分配给任何派出所。

身份证正确检验及验证公式

验证公式一 =IF(LEN(H20)=18,IF(RIGHT(H20,1)="X",IF(CHOOSE(MOD(SUM(LEFT(RIGHT(H20,18) )*7 LEFT(RIGHT(H20,17))*9 LEFT(RIGHT(H20,16))*10 LEFT(RIGHT(H20,15))*5 LEFT(RIGHT(H20,14))*8 LEFT(RIGHT(H20,13))*4 LEFT(RIGHT(H20,12))*2 LEFT(RIGHT(H20,11))*1 LEFT(RIGHT(H20,10))*6 LEFT(RIGHT(H20,9))*3 LEFT(RIGHT(H20,8))*7 LEFT(RIGHT(H20,7))*9 LEFT(RIGHT(H20,6))*10 LEFT(RIGHT(H20,5))*5 LEFT(RIGHT(H20,4))*8 LEFT(RIGHT(H20,3))*4 LEFT(RIGHT(H20,2))*2),11) 1,1,0,"X",9,8,7,6,5,4,3,2)=LEFT(RIGHT(H20,1)),"正确！","出错啦！ "),IF(CHOOSE(MOD(SUM(LEFT(RIGHT(H20,18))*7 LEFT(RIGHT(H20,17))*9 LEFT(RIGHT(H20,16))*10 LEFT(RIGHT(H20,15))*5 LEFT(RIGHT(H20,14))*8 LEFT(RIGHT(H20,13))*4 LEFT(RIGHT(H20,12))*2 LEFT(RIGHT(H20,11))*1 LEFT(RIGHT(H20,10))*6 LEFT(RIGHT(H20,9))*3 LEFT(RIGHT(H20,8))*7 LEFT(RIGHT(H20,7))*9 LEFT(RIGHT(H20,6))*10 LEFT(RIGHT(H20,5))*5 LEFT(RIGHT(H20,4))*8 LEFT(RIGHT(H20,3))*4 LEFT(RIGHT(H20,2))*2),11) 1,1,0,"X",9,8,7,6,5,4,3,2)=LEFT(RIGHT(H20,1))*1,"正确！","出错啦！")),IF(LEN(H20)=15,"老号，请注意！",IF(LEN(H20)=0,"缺号码","位数不对！"))) 验证公式二 =MID("10X98765432",MOD(SUMPRODUCT(MID(H20,ROW(INDIRECT("1:17")),1)*2^(18 -ROW(INDIRECT("1:17")))),11) 1,1)=RIGHT(H20,1) 身份证有15位和18位两种，身份证位数是否正确，我们可以用LEN函数判断。但身份证上的日期是否合法：月份是否在1-12之间，日期是否在1-31之间，并且2月份只有28或29天，其他月份30或31天，都不能超过范围。另外一般规定6岁以上才可以办理身份证，也就是年份也有一个超范围的可能性。综合起来看，有三类错误：“身份证位数不对”、“月日错误”、“年份错误”。假定身份证号码在B1单元格，下面的公式可以综合判断以上三种错误：验证公式三 =IF(OR(LEN(B1)=18,LEN(B1)=15),IF(LEN(B1)=18,IF(OR(MONTH(DATE(1*(MID(B1,7 ,4)),1*(MID(B1,11,2)),1*(MID(B1,13,2))))<>1*(MID(B1,11,2)),DAY(DATE(1*(M ID(B1,7,4)),1*(MID(B1,11,2)),1*(MID(B1,13,2))))<>1*(MID(B1,13,2))),"月日错误",""),IF(LEN(B1)=15,IF(OR(MONTH(DATE(1*(MID(B1,7,2)) 1900,1*(MID(B1,9,2)),1*(MID(B1,11,2))))<>1*(MID(B1,9,2)),DAY(DATE(1*(MID (B1,7,2)) 1900,1*(MID(B1,9,2)),1*(MID(B1,11,2))))<>1*(MID(B1,11,2))),"月

一个18位身份证校验计算函数

一个18位身份证校验计算函数因需要对15位旧身份证号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给大家自己扩展吧！ <% ' Version: 1.0.1 ' Author: sfply(sfply@https://www.sodocs.net/doc/929098064.html,) ' Last Modified: 2004/7/17 12:03 ' Src是身份证号码,可以是15位也可以是18位,15位时只能返回验证码方式使用 ' iChk参数取值真假,真代表校验Src是否18位身份证，并且校验第18位是否正确号码而确定是否有效身份证,返回只值为true或false ' 假代表返回正确的校验码，返回值为(1~x) dim myIdentify myIdentify = "36050219781218133?" response.write chkIdentiyCard(myIdentify,false) Function chkIdentiyCard(Src,iChk) dim myWi,myAi,mySrc(17),i,myCount

myAi = "10X98765432" myWi = split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",") if iChk then if len(Src) = 18 then for i = 0 to 16 mySrc(i) = mid(Src,i+1,1) myCount = myCount + mySrc(i) * myWi(i) next if mid(myAi,(mycount mod 11)+1,1) = right(Src,1) then chkIdentiyCard = true '返回结果，TRUE为合法身份证验证码 else chkIdentiyCard = false '返回结果，FALSE为非法身份证验证码 end if else chkIdentiyCard = false '因为不是18位身份证所以返回FALSE end if else if len(Src) = 15 or len(Src) = 18 then if len(Src) = 15 then Src = mid(Src,1,6) & "19" & mid(Src,7,9) for i = 0 to 16 mySrc(i) = mid(Src,i+1,1) myCount = myCount + mySrc(i) * myWi(i) next chkIdentiyCard = mid (myAi,(mycount mod 11)+1,1) '返回正确的验证码 else chkIdentiyCard = false '输入不不是15位或18位身份证号 end if end if End Function

一个18位身份证校验计算函数

Excel判断身份证号校验码

公民身份证号码18位数字含义

通过excel公共函数计算二代公民身份证号码末位校验码

身份证号码第十八位效验码的计算方法

最新-第二代身份证号码提取出生年月日的公式-(很简单)

身份证校验码的解释

一个18位身份证校验计算函数.docx

18位身份证号编制规则

18位身份证号码输入的几种解决方法

范文：EXCEL身份证核对公式

EXCEL身份证计算筛选公式

Excel表格身份证号码提取出生日期的公式

18位身份证号码验证算法

身份证编码规则

身份证正确检验及验证公式

一个18位身份证校验计算函数

相关文档

最新文档