Excel如何提取身份证中的出生日期并计算年龄

Excel如何提取身份证中的出生日期并计算年龄

我们在工作当中常常会使用到身份证号，有了身份证号我们就可以清楚地算出年龄及出生日期，那么到底在Excel中通过VBA如何提取身份证中的出生日期并计算年龄？要提取身份证中的出生日期并计算年龄我们可以利用VBA中的Mid函数分别获取出生年月日，并用DateSerial函数将其转换为日期，然后再用DateDiff函数计算机出生年月与当前日期间隔的年数，从而算出年龄，具体步骤如下：步骤一、按组合键“Alt+F11”打开VBE。步骤二、选择菜单“插入”“模块”并输入以下代码Sub 获取身份证中出生日期() '变量声明 Dim RowN As Long '行号 Dim sIDNo As String '身份证号码 '循环遍历 For RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row '获取身份证号码 sIDNo = Cells(RowN, "B").Value '提取出生年月 Cells(RowN, "C").Value = DateSerial _ (Mid(sIDNo, 7, 4), Mid(sIDNo, 11, 2), Mid(sIDNo, 13, 2)) '使用DateDiff函数计算年龄（周岁） Cells(RowN, "D").Value = DateDiff("yyyy", Cells(RowN, "C").Value, Date) Next End Sub 步骤三、返回工作表界面，在功能区的“开发工具”选项卡中单击“宏”按钮，执行“VBA提取身份证中的出生日期”宏后，即可得到身份证对应的出生日期以及年龄，相关说明：·DadeDiff函数DadeDiff函数可以计算两个日期之间的间隔，其语法为：DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])参数Interval表示日期间隔以何种日期单位表示参数date1和date2为进行计算的两个日期firstdayofweek表示以哪一天作为一周的开始firstweekofyear表示以何种设置为标准表示每年的一击开始。