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

我们在工作中经常使用身份证号，用身份证号就可以清楚地计算出年龄和出生日期。那么如何在Excel中通过VBA提取出生日期，计算身份证中的年龄呢？要提取身份证中的出生日期并计算年龄，我们可以使用VBA的Mid函数分别获取出生日期，并使用DateSerial函数将其转换为日期，然后使用DateDiff函数通过计算出生日期和当前日期之间的年数来计算年龄。具体步骤如下：

第一步：按组合键“Alt F11”打开VBE。

第二步：选择菜单“插入”和“模块”，并输入以下代码

子获取身份证()中的出生日期“变量声明Dim RowN As Long”行号Dim sIDNo As字符串“身份证号”循环遍历For RowN=2 To单元格(行。计数，A’)。结束(xlUp)。' Row '获取身份证号码sIDNo=Cells(RowN，' B ')。Value '提取出生日期单元格(rown，' c ')。value=dateserial _ (mid (sidno，7，4)，mid (sidno，11，2)The Mid(sIDNo，13，2))'使用DateDiff函数计算年龄(年份)单元格(rown，' d ')。value=datediff ('yyyy '，单元格(rown，' c ')。值，日期)下一步子步骤3，返回工作表界面。在功能区的“开发工具”选项卡中点击“宏”按钮，执行宏“VBA从身份证中提取出生日期”后，可以得到身份证对应的出生日期和年龄，如图：

相关说明：

DadeDiff函数DadeDiff函数可以计算两个日期之间的间隔，其语法为：datediff (interval，date1，date2 [，一周的第一天[，Firstweekofyear]])参数interval表示日期间隔的日期单位。参数日期1和日期2是要计算的两个日期。firstdayofweek表示一周的开始日期。一年中的第一周指示哪种设置是指示每年开始一次中风的标准。