EXCEL根据身份证号码自动提取性别、出生年月日和年龄(通用公式)-杜小杰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 综合其它


EXCEL根据身份证号码自动提取性别、出生年月日和年龄(通用公式)

发表时间:2011/4/23 10:09:17 评论(4) 浏览(24876)  评论 | 加入收藏 | 复制
   
摘 要:摘自网上
正 文:

这是根据身份证号码(15位和18位通用)自动提取性别和出生年月的自编公式,供需要的网友参考:

说明:公式中的B2是身份证号

1、根据身份证号码求性别=IF(LEN(B2)=15,IF(MOD(VALUE(RIGHT(B2,3)),2)=0,"女","男"),IF(LEN(B2)=18,IF(MOD(VALUE(MID(B2,15,3)),2)=0,"女","男"),"身份证错"))

2、根据身份证号码求出生年月日=IF(LEN(B2)=15,CONCATENATE("19",MID(B2,7,2),".",MID(B2,9,2)),IF(LEN(B2)=18,CONCATENATE(MID(B2,7,4),".",MID(B2,11,2)),"身份证错"))

3、根据身份证号码求年龄=IF(LEN(B2)=15,year(now())-1900-VALUE(MID(B2,7,2)),if(LEN(B2)=18,year(now())-VALUE(MID(B2,7,4)),"身份证错"))

 

其他通用公式:(新旧身份证号通用)

(1)、根据“身份证号”获得“年龄”
A1为身份证号,
B1中输入公式
=DATEDIF(TEXT((LEN(A1)=15)*19&MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00"),TODAY(),"y")

(2)、根据出生“年-月-日”获得“年龄”
B1为出生日期,
C1中输入公式
=INT((TODAY()-B1)/365)
或者
=DATEDIF(B1,TODAY(),"Y")

判断身份证格式是否正确:
B1为身份证号,
C1中输入公式
=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*(MID(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))),"月日错误",""))),"身份证位数不对")&IF(AND(LEN(B1)=18,1*MID(B1,7,4)>YEAR(TODAY())-6),"年份错误","")

通用公式:(很不错哦^_^)

假设C2为身份证号,输入公式

=IF(LEN(C2)=15,19&MID(C2,7,6),MID(C2,7,8))
这是获得出生日期

=IF(MOD(IF(LEN(C2)=15,MID(C2,15,1),MID(C2,17,1)),2)=1,"男","女")
这是区分性别


Access软件网交流QQ群(群号:198465573)
 
 相关文章
VBA自动提取CAD图纸明细表及数据库管理的研究与实践(一)  【碧海  2009/12/30】
VBA自动提取CAD图纸明细表及数据库管理的研究与实践(二)  【碧海  2009/12/31】
从身份证号中提取相关信息  【H  2010/1/7】
[access查询]根据身份证号码进行生日提醒示例  【煮茶论道  2011/9/4】
身份证号码校验公式  【雄鹰  2011/9/5】
常见问答
技术分类
相关资源
文章搜索
关于作者

杜小杰

文章分类

文章存档

友情链接