一个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是怎么计算的，原理如下

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

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

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

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

S (ai X Wi) (mod 11) (1)

公式⑴屮：

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

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

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

18 17 16 15 14 13 12 11 10 9 8 7 6

ai 34052419800101 0 0 1 al

Wi 7 9 10 584216379 10 584

aiXWi 21 36 0 25 16 16 2 9 48 00905002a!

根据公式⑴进行计算:

L (aiXWi)二(21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2)二189

189 一11 二17 + 2/11

Z (ai XWi)(mod 11) = 2

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

工(aiXWI) (mod 11) 0123456789 10

校验码字符值ai 10X98765432

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

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

]*3

+a[10]*7+a[ll]*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/5d9454866.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位！")

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

1、第二代身份证号码提取出生年月日的公式： =MID(A1,7,4)&"-"&MID(A1,11,2)&"-"&MID(A1,13,2) 注：A是列，1是行，&在数字键7的上方。 2、第二代身份证号码提取性别男、女的公式： =IF(MOD(MID(A1,17,1),2),"男","女") 注：A是列，1是行。 3、excel用身份证号算年龄的工式 比如身份证号保存在a1单元格，那么可以使用=mid(a1,7,4)来取出出生年，再用当前年份减去这个就是年龄了。 4、提取身份证出生年月 ="19"&MID(B1,9,2)&"年"&MID(B1,11,2)&"月"&MID(B1,13,2)&"日" 5、提取身份证年龄 =YEAR(NOW())-YEAR(IF(LEN(B1)=18,DATE(MID(B1,7,4),MID(B1,11,2),M ID(B1,13,2)),DATE(MID(B1,7,2),MID(B1,9,2),MID(B1,11,2)))) 6、提取身份证性别 =IF(LEN(B1)=15,IF(MOD(MID(B1,15,1),2)=1,"男","女"),IF(MOD(MID(B1,17,1),2)=1,"男","女")) 7、公式内的“B1”代表的是输入身份证号码的单元格。 Excel自动提取身份证中生日和性别以及年龄 （注意：以B2单元格中是18位身份证号为例） 一、提取出生日期的输入公式 =MID(B2,7,4)&"年"&MID(B2,11,2)&"月"&MID(B2,13,2)&"日" 二、判断性别“男女”的输入公式

=IF(MID(B2,17,1)/2=TRUNC(MID(B2,17,1)/2),"女","男") 三、利用身份证号码求年龄 =IF(B2="","",DATEDIF(TEXT((LEN(B2)=15)*19&MID(B2,7,6+(LEN (B2)=18)*2),"#-00-00"),TODAY(),"y")) 八、计算年龄的公式？ datedif(开始日期，结束日期，"M") 九、用公式计算最大年龄？ max(D3:D21) 十、用公式计算25--35岁之间的人数？ =COUNTIFS(D3:D21,">"&25,D3:D21,"<"&35) 十一、计算25岁以下的人数? =COUNTIF(D3:D21,">"&25) 十二、计算25岁以下人数的比例? =COUNTIF(D3:D21,">"&25)/count(D3:D21) 十三、用excel做表输入年月日，可以变成例如1986-01-01的格式吗？能的话怎么变？ 先选中单元格，鼠标右击，“设置单元格格式”，“数字”，“自定义”，在类型处输入 e-mm-dd 确定 十四、1.自动录入性别: “=IF(LEN(C2)=15,IF(MOD(MID(C2,15,1),2)=1,"男","女"),IF(MOD(MID(C2,17,1),2)=1,"男","女"))” if假如(len(C2)得到C2的字符长度等于15，[15时mod除以2的余数(取mid(C2单元格,第15个的，1个字符），除以2）]，[不等于15条

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

身份证号码第十八位效验码的计算方法- godson_h的专栏- CSDN 博客 默认分类2010-04-10 07:56:04 阅读141 评论0 字号：大中小订阅 身份证号码第十八位效验码的计算方法 关于身份证第18是怎么计算的，原理如下：根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 地址码（身份证前六位）表示编码对象常住户口所在县(市、旗、区)的行政区划代码。（所有区域的编码可以到这个网站https://www.sodocs.net/doc/5d9454866.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。所以，这是一个合格的身份证号码。

Excel里通过身份证号码计算性别

在EXCEL中利用身份证号码计算性别 原理： 15位身份证，看最后一位，奇男偶女；18位的，看第17位数，也是奇男偶女。 公式内的“B2”代表的是输入身份证号码的单元格。 方法一： =IF(LEN(B2)=15,IF(MOD(MID(B2,15,1),2)=1,"男","女"),IF(MOD(MID(B2,17,1),2)=1,"男","女")) 公式含义： 如果B2单元格中式15位的身份证号，则显示IF(MOD(MID(B2,15,1),2)=1,"男","女")的计算结果，否则，显示IF(MOD(MID(B2,17,1),2)=1,"男","女")的计算结果。 方法二： 18位身份证号码中，第15～17位为顺序号，奇数为男，偶数为女。 将光标定位在“性别”单元格中，然后在单元格中输入函数公式：=IF(VALUE(MID(B2,15,3))/2=INT(VALUE(MID(B2,15,3))/2),"女","男") 公式含义： ①函数公式中，MID(D2,15,3)的含义是将身份证中的第15～17位提取出来。 ②VALUE(MID(D2,15,3))的含义是将提取出来的文本数字转换成能够计算的数值。 ③VALUE(MID(D2,15,3))/2=INT(VALUE(MID(D2,15,3))/2)的含义是判断奇偶。(“INT”是取整函数，如果是偶数，则前后相等；如果是奇数，则前后不相等。) ④=IF(VALUE(MID(D2,15,3))/2=INT(VALUE(MID(D2,15,3))/2),"女","男")的含义是若是“偶数”就填写“女”，若是“奇数”就填写“男”。

身份证校验码的解释

身份证校验码的解释 新居民身份证的号码是按照国家的标准编制的，由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计算最后一位的公式,也就是个校验码而已

Excel表格中根据身份证号码自动填出生日期、计算年龄[1]

Excel表格中根据身份证号码自动填出生日期、计算年龄18位身份证号码转换成出生日期的函数公式：如果E2中是身份证,在F2 中求出出生日期，F2=DATE(MIDB(E2,7,4),MIDB(E2,11,2),MIDB(E2,13,2)) 自动录入男女：=IF(MOD((IF(LEN(e2)=18,MID(e2,17,1),MID(e2,15,1))),2)=0,"女","男") 15/18位都可以的公式：转换出生日期： =IF(LEN(e2)=18,TEXT(MID(e2,7,8),"#-00-00"),"19"&TEXT(MID(e2,7,6),"#-0 0-00")) 自动录入男女：=IF(E2="","",IF(MOD(RIGHT(LEFT(E2,17),1),2)=0,"女","男")) 计算年龄（新旧身份证号都可以）： =IF(AND(E2=""),"",IF(MIDB(E2,7,2)="19",107-MIDB(E2,9,2),107-MIDB(E2,7 ,2))) WPS表格提取身份证详细信息 前些天领导要求统计所有员工的性别、出生日期、年龄等信息，并且要得很急。而我们单位员工人数众多，短时间内统计相关信息并且输入计算机几乎是不太可能的。幸好在以前的一份金山表格中我们曾经统计有所有员工的身份证号码，而身份证中正有我们所需要的性别、出生日期、年龄等信息的。所以，干脆，还是直接在金山表格中从身份证号码提取相关的信息吧。 身份证号放在A2单元格以下的区域。我们需要从身份证号码中提取性别、出生日期、年龄等相关信息。由于现在使用的身份证有15位和18位两种。所以，在提取相关信息时，首先应该判断身份证号码的数字个数，然后再区别不同情况进行相关处理。 一、身份证号的位数判断 在B2单元格输入如下公式“=LEN($A2)”，回车后即可得到A2单元格身份证号码的数字位数，如图1所示。LEN($A2)公式的含义是求出A2单元格字符串中字符的个数。由于当初身份证输入时就是以文本形式输入的，所以用此函数正可以很方便地求到身份证号码的位数。

一个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:市辖区、郊区、郊县、县级市代码

身份证号码函数

用vlookup函数，及其他各项功能，通过身份证号得出了出生日期、性别、户籍所在地等多项信息，并加入了身份证号正确性验证机制和15位、18位号码的转换功能。 详细制作步骤 要想了解身份证的秘密，首先让我们了解一下我国现行的公民身份证标准。 1.我国现行使用公民身份证号码有两种标准。 2.15位身份证号码（六位数字地址码，六位数字出生日期码，三位数字顺序码）。 3.18位身份证号码（六位数字地址码，八位数字出生日期码，三位数字顺序码和 一位数字校验码）。 4. 5.地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。 6.日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、 日之间不用分隔符。 7.顺序码表示同一范围内对同年、月、日出生的人员编定的顺序号。奇数分给男 性，偶数分给女性。 8.校验码是根据前面十七位数字码计算出来的检验码。 复制代码 了解了以上知识后，让我们来制作Excel表。 1.新建一个Excel文档， 2.将Sheet1重命名为“身份证信息”，在第1行各列中依次输入“身份证号码、 十五位身份证号码、十八位身份证号码、性别、出生日期、年龄、省份、市、 区县”等文字，并将“出生日期”列设置为日期（yyyy.mm.dd）格式，其余列 设置为文本格式。 3.将Sheet2重命名为“区域信息”，从国家统计局下载到最新县及县以上行政 区划代码，经整理后分别导入到“区域信息”的A、B两列中，以便查询。 复制代码 到此，Excel表框架搭建完成，我们来写入函数完成查询。 第一步判断号码是否为正确的身份证号 一个正确的身份证号码，要符合以下几个标准： ①应为15位或18位； ②要包含数字（0－9）或字符（X）； ③18位身份证号最后一位是真正的校验码。 如果上面三个条件都满足，则是正确的身份证号。 我们利用Excel单元格的“有效性”限制来完成校验。 具体方法是选择“身份证信息”表，全选“身份证号码”列，选择“数据－有效性”菜单命令，在弹出的窗口“设置”标签中，将有效性条件的“允许”设置为“自定义”、“公式”

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从身份证号码中提取出生日期2009-02-27 22:52例如：从身份证420821************中提取出生日期来，如何快速得出？ 呵呵，只需使用语句： =DATE(mid(A1,7,4),mid(A1,11,2),mid(A1,13,2)) 【A1是身份证号码所在单元格】 date()函数，地球人都知道，日期函数；如输入今天的日期=today() 那么，mid函数是什么东东呢？ MID(text,start_num,num_chars) Text 为包含要提取字符的文本字符串；Start_num 为文本 中要提取的第一个字符的位置。文本中第一个字符的start_num 为1 ，以此类推；Num_chars指定希望MID 从文本中返回字符的个数。对身份证号码分析下就知道：420821************，出生日期是1992年2月6日；也就是 从字符串（420821************）的第7位开始的4位数字表示年，从字符串的第11位开始的2位数字表示月，字符串的第13位开始的2位数字表示日。呵呵，强悍吧！ Excel中利用身份证号码（15或18位）提取出生日期和性别

需要的函数： LEN(C6)=15：检查C6单元格中字符串的字符数目，本例的含义是检查身份证号码的长度是否是15位； INT:返回数值向下取整为最接近的整数,本例中用来判断身份证里数值的奇偶数。 RIGHT:返回文本字符串最后一个字符开始指定个数的字符；MID：返回文本字符串指定起始位置起指定长度的字符，MID(C6,7,2)表示：在C3中从左边第七位起提取2位数； "19"&MID(C6,7,2)表示：在C3中从左边第七位起提取2位数的前面添加19； …… &""&表示：其左右两边所提取出来的数字不用任何符号连接；&"-"&表示：其左右两边所提取出来的数字间用“-”符号连接。若需要的日期格式是yyyy年mm月dd日，则可以把公式中的“-”分别用“年月日”进行替换就行了。 一、提取出生日期 如果我们要从一个人的身份证号码中批量提取其出生年月日，并表示成“yyyy-mm-dd”形式，可以这样做，假设身份证号码在C列，在D

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身份证性别(男/女)筛选公式:

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))),"月