EXCEL中如何提取身份证出生日期

EXCEL中如何提取身份证出生日期、性别、检验身份证号

码的正确性

中国居民身份证号码是一组特征组合码，原为１５位，现升级为１８位，其编码规则为：１５位：６位数字常住户口所在县市的行政区划代码，６位数字出生日期代码，３位数字顺序码。

１８位：６位数字常住户口所在县市的行政区划代码，８位数字出生日期代码，３位数字顺序码和１位检验码。其中３位数字顺序码，是为同一地址码的同年同月同日出生人员编制的顺序号，偶数的为女性，奇数的为男性。

１、提取籍贯地区的行政区划代码（A2为身份证号，下同）１５与１８位通用：=LEFT(A2,6)

如果有一个编码和省份地区的对照表，可以用VLOOKUP函数来提取地区信息。２、提取出生日期信息

１５位：=--TEXT(19&MID(A2,7,6),"#-00-00") １８位：=--TEXT(MID(A2,7,8),"#-00-00") １５与１８位通用：=--TEXT(IF(LEN(A2)=15,19,"")&MID(A2,7,6+IF(LEN(A2)=18,2,0)) ,"#-00-00")

简化公式：=--TEXT((LEN(A2)=15)*19&MID(A2,7,6+(LEN(A2)=18)*2),"#-00-00 ") (请将输入公式的单元格格式设置为日期格式）３、提取性别信息

１５位：=IF(MOD(RIGHT(A2),2)=1,"男","女") １８位：

=IF(MOD(MID(A2),17,1)=1,"男","女")

１５与１８位通用：=IF(MOD(MID(A2,IF(LEN(A2)=15,15,17),1),2)=1,"男","女") 简化公式：=IF(MOD(RIGHT(LEFT(A2,17)),2),"男","女") ４、检验身份证号码的正确性

１８位身份证号码的最后一位是检验码，它是根据身份证前17位数字依照规则计算出来的，其值０～９或X。一般情况只要有一位数字输入错误，依照规则计算后就会与第18位数不符。当然不排除按错误号码计算后恰好与检验码相符的情况，但这种情况出现的可能性较低。因此，对１８位号码的验证采用如下公式：

=MID("10X98765432",MOD(SUMPRODUCT(MID(A2,ROW(INDIRECT("1:17 ")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1)=RIGHT(A2,1) 对于１５位身份证，由于没有检验码，我们只能简单地去判断出生日期代码是否是一个有效的日期，避免输入一些像“731302”或“980230“等这样不存在的日期。=ISNUMBER(--TEXT(19&MID(A2,7,6),"#-00-00"))

综合１５位和１８位后的通用公式为：

=IF(LEN(A2)=18,MID("10X98765432",MOD(SUMPRODUCT(MID(A2,ROW( INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1) =RIGHT(A2),IF(LEN(A2)=15,ISNUMBER(--TEXT(19&MID(A2,7,6),"#-00-00"))))

由于目前１５位身份证号码已经很少了，如果对１５位的号码不

需要作进一步的判断，则公式可以简化成：

=IF(LEN(A2)=18,MID("10X98765432",MOD(SUMPRODUCT(MID(A2,ROW( INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1) =RIGHT(A2),LEN(A2)=15) 将上面的公式放到B2单元格，如果结果为TRUE，则身份证号是正确的，结果为FALSE则是错误的。

你也可以将上述公式放在数据有效性中，防止录入错误的身份证号。操作方法:选择需要输入身份证的全部单元格区域,比如A2:A10,点菜单"数据"-"有效性",在"允许"的下拉框中选择"自定义",在"公式"输入上面的15位和18位通用公式,确定以后即可。注意:公式里

的"A2"是你刚才选定要输入身份证的单元格区域的第一个单元格,如果你是要在C3:C20输入身份证号,则将公式里的"A2"改为"C3"。另外,你也可以先设置好某单个单元格的数据有效性(这时公式的A2改为选定的单元格),再用格式刷将其格式刷到其他需要相同设置的单元格。５、１５位升为１８位

=IF(LEN(A2)=15,REPLACE(A2,7,,19)&MID("10X98765432",MOD(SUMP RODUCT(MID(REPLACE(A2,7,,19),ROW(INDIRECT("1:17")),1)*2^(18 -ROW(INDIRECT("1:17")))),11)+1,1),A2)

６、１８位转换为１５位

=IF(LEN(A2)=18,LEFT(REPLACE(A2,7,2,),15),A2) 7、示例表中公式: B2 =IF(LEN(A2)=18,MID("10X98765432",MOD(SUMPRODUC T(MID(A2,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17" )))),11)+1,1)=RIGHT(A2),IF(LEN(A2)=15,ISNUMBER(--TEXT(19&MI D(A2,7,6),"#-00-00"))))

C2 =IF(A2<>"",TEXT((LEN(A2)=15)*19&MID(A2,7,6+(LEN(A2) =18)*2),"#-00-00")+0,) D2 =IF(A2<>"",IF(MOD(RIGHT(LEF T(A2,17)),2),"男","女"),) E2 =IF(A2<>"",DATEDIF(TEXT((LEN(A2)=15)*19&MID(A 2,7,6+(LEN(A2)=18)*2),"#-00-00"),TODAY(),"y"),)

F2 =IF(A2<>"",VLOOKUP(LEFT(A2,2),地区表!A:D,2,),) H2 =IF(LEN(A2)=15,REPLACE(A2,7,,19)&MID(