Excel输入出生日期、年龄自动计算、身份证提取日期、年度统计

第一篇：Excel输入出生日期、年龄自动计算、身份证提取日期、年度统计

Excel输入出生日期、年龄自动计算、身份证提取日期、年度统计

背景：统计在校生需要输入出生年月日，改动出生年月日，统计年龄，从身份证提取年龄等。网上的介绍涉及格式又数字又文本的，有的输入时还自动变成1905或2441年等，很烦恼，而这次总结的办法不会出现上述问题，都是在格式为数字格式的情况计算的，只是涉及小数位数和是否自动插入小数点等问题。

常用公式：

1、=DATEDIF(E4,TODAY(),“y”)

（计算一个学生今年的岁数）

2、=2006-year(d1)(计算一个学生不同学年度的岁数）

3、择取单元格前面的几位数=LEFT(C15,4）取C15中前4个字符就是你要的年份了

4、提取指定位置，指定长度的字符串

=MID（A2，7,8）

即 =MID（要提取的单元格，起始位数，提取长度）

5、对如：79.1-197901、80.10-198010、2001.1-200101、2001.12-200112都适用。

方案： 找一空闲列辅助，比如原来的出生年月列在A列，E列为空闲列，在E1中输入

=IF(LEN($A1)<4“错误”,CHOOSE(LEN($A1)-3,“19”&LEFT($A1,2)&“0”&RIGHT($A1,1),“19”&LEFT($A1,2)&RIGHT($A1,2),LEFT($A1,4)&“0”&RIGHT($A1,1),LEFT($A1,4)&RIGHT($A1,2)))

6、假设你A1输入的是出生年月B1输入=DATEDIF(A1,today(),“y”)但是这是指你的A1是输入的标准日期，如果输入的是文本格式的那B1输入=year(today())-left(a1,4)

综上所述，总结了两种极为有效的方法，其实原理是一种而已： 方法一：

1、打开excel 2007或2003，出生年月处数据自动插入小数点，格式为数字并保留两位小数，分隔符为“-”

2、提取前四位字符，即出生年份 =LEFT(A2,4）

3、打开2003或另一个2007程序，粘贴，格式为文本格式。

4、计算年龄： =2013-A2(年份所在单元格），拖动年龄列即可

方法二：根据第一种方法总结的经典法

1、打开excel 2007或2003，出生日期处，格式为数字，保留小数两位，高级选项里自动插入小数点两位，分隔符为“-”

2、停止excel自动插入小数点。

3、把年龄单元格改为数值并不保留小数点，输入公式 =year(today())-left(a1,4)即用今年减去年龄单元格的前四位整数，即为年龄。然后拖动年龄列即可。

4、更换学年度时，学生的年龄是发生变化的，只需改动年龄位置的公式，如1976年2013年度该学生是37岁，那么2012年度时该学生应该是36岁，所以公式应该是 =year(today())-left(a1,4)-1，注意减1即可。若是2000年度，则=year(today())-left(a1,4)-13即可，即为该学生2000年时的岁数。

第二篇：利用身份证号自动提取出生日期和年龄性别

在excel表格中，根据身份证号码就可以自动提取出生年月、性别、年龄。

第一，身份证号码的组成。

当今的身份证号码由18位数字组成：前6位为地址码，第7至14位为出生日期码，第15至17位为顺序码，第18位为校验码。

15~17位为顺序号，其中第17位如果是单数为男性分配码，双数为女性分配码。即通过第17位数字，可以判断性别，奇数为男，偶数为女。

下面以实例的方式讲解如何根据身份证号码自动提取出生年月、性别、年龄。首先，在excel中输入以下表格，实例如下面所示。

A

B

C

D

E

姓名

身份证号码

出生日期

性别

年龄

张三

***786

1972年05月03日

女

第二，根据身份证号码自动提取出生年月

在目标单元格输入公式：

=MID(B2,7,4)&“年”&MID(B2,11,2)&“月”&MID(B2,13,2)&“日”，回车确定，单元格内会出现与身份证号码相关的出生日期。其它单元格的填充，不必一一输入公式，只需选中该单元格复制，在其它单元格内粘贴即可。

提示：MID函数是提供的一个“从字符串中提取部分字符”的函数命令。

第三，根据身份证号码自动提取性别的方法

在目标单元格输入公式：

=IF(MOD(RIGHT(LEFT(B2,17)),2),“男”,“女”)

提示：IF函数：根据逻辑表达式测试的结果，返回相应的值。IF函数允许嵌套。

RIGHT函数：根据所指定的字符数返回文本串中最后一个或多个字符。

第四，根据身份证号码自动提取年龄的方法

在目标单元格输入公式：=DATEDIF(TEXT(MID(B2,7,6+2*(LEN(B2)=18)),“#-00-00”),NOW(),“y”)，回车确定。