与身份证号码有关的计算【年龄、性别、出生年月、生肖、籍贯、退休】

f8b1987

最近在QQ群里见到偶尔有人问身份证号码相关的计算，帮人解答过几次。参考一些高手的公式和自己设计的公式，整理分享给大家，有需要的可以下载看看。

身份证号码	性别						出生年月日				年龄
412341198101094115	男	男	男	男	男	男	1981-1-9	1981-01-09	1981-1-9	1981-1-9	30	30	30
412341198102094115	男	男	男	男	男	男	1981-2-9	1981-02-09	1981-2-9	1981-2-9	30	30	30
412341198103094115	男	男	男	男	男	男	1981-3-9	1981-03-09	1981-3-9	1981-3-9	30	30	30
441881198104094115	男	男	男	男	男	男	1981-4-9	1981-04-09	1981-4-9	1981-4-9	30	30	30
310112810209522 310112810309522 310112811009522 310112811209522

重新更新，增加楼下几位高手的公式。

身份证号码相关计算.rar (9.89 KB, 下载次数: 1887)

2011-9-23 21:10 上传

点击文件名下载附件

员工信息籍贯、生肖、退休年限等.rar (92.52 KB, 下载次数: 2212)

2011-9-23 21:08 上传

点击文件名下载附件

PS:第二个附件有工作表保护，密码为空


感谢42楼的补充，增加籍贯、生肖等计算。


已更新楼下几位高手的公式到里面，感谢楼下几位补充。

以下是回帖中提供公式但未加入表内的，大家有需要也收藏一下：
EXCEL部落3群
11:04:31
=text(-1^mid(a1,15,3),"女;男")




35楼
TEXT(MOD(MID(A3,15,3),2),"男;;女")

TEXT(MID(A3,7,6+(LEN(A3)=18)*2),"0-00-00")

24楼
=IF(LEN(A27)=15,IF(MOD(RIGHT(A27,1),2)=1,"男","女"),IF(MOD(MID(A27,17,1),2)=1,"男","女"))

=TEXT(MID(A27,7,INT(LEN(A27)/2-1)),"1900-00-00")

25楼
年龄=YEAR(TODAY())-VALUE(MID(B8,7,4))，B8为存放身份证号码的单元格

14楼
=IF(LEN(F2)=18,MID(F2,18,1)=MID("10X98765432",MOD(SUMPRODUCT({7;9;10;5;8;4;2;1;6;3;7;9;10;5;8;4;2},--MID(F2,{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17},1)),11)+1,1),"")

一个校验身份证号的公式，F2格为身份证号

18楼

15位18位身份证
出生日期提取公式：
=IF(LEN(A1)=15,MID(A1,7,2)&"-"&MID(A1,9,2)&"-"&MID(A1,11,2),MID(A1,7,4)&"-"&MID(A1,11,2)&"-"&MID(A1,13,2))
性别提取公式：
=IF(LEN(A1)=15,IF(MOD(VALUE(RIGHT(A1,3)),2)=0,"女","男"),IF(LEN(A1)=18,IF(MOD(VALUE(MID(A1,15,1)),2)=0,"女","男"),"身份证错"))
年龄提取公式：
方法一：
=IF(LEN(A1)=15,YEAR(NOW())-1900-VALUE(MID(A1,7,2)),IF(LEN(A1)=18,YEAR(NOW())-VALUE(MID(A1,7,4)),"身份证错"))
方法一：
=DATEDIF("出生日期",TODAY(),"Y")

其他相关帖子

http://club.excelhome.net/thread-361404-1-1.html

f8b1987

有高手有更好的公式，欢迎回帖分享

fireinmay

下来看看，谢谢

laowuwyx

1. =IF(MOD(MID(A3,15,3),2),"男","女")

复制代码

性别公式，通用于15位和18位。

kakaco

性别
=IF(MOD(MID(A3,15,3),2),"男","女")
出生年月日
=TEXT(MID(A3,7,LEN(A3)/2.2),"#-00-00")
年龄
=DATEDIF(TEXT(MID(A3,7,LEN(A3)/2.2),"#-00-00"),NOW(),"y")

laowuwyx

还有很多种方法，楼主可以到论坛上搜一下，一大把。

cctv665565

路过路过！！

h5519306

B3=IF(MOD(IF(LEN(A3)=15,15,17),2),"男","女")
I3=--TEXT(IF(LEN(A3)=15,19&MID(A3,7,6),MID(A3,7,8)),"0000-00-00")
M3=DATEDIF(I3,TODAY(),"y")

WBQWQ

楼主搜搜“红尘居士”老师的专辑视频课件吧，很详细的哦。

jonnygu

路过路过！！