2014/6/5 16:53:22作者:佚名来源:网络
我们在工作当中常常会使用到身份证号,有了身份证号我们就可以清楚地算出年龄及出生日期,那么到底在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表示以何种设置为标准表示每年的一击开始。
标签: Excel 日期 计算年龄
相关文章
金山数据恢复大师官方版 v1.0.0.2
详情南方测绘Cass10v10.1.6中文
详情revit 2017
详情KeyShot Pro 9中文(附安装教程) v9.0.286
详情网易新闻客户端v105.3
详情AIMP4v5.11.2421中文绿色美化版
详情onekey一键还原v18.0.18.1008
详情浩辰CAD2020绿色v20.0
详情好图网图标转换工具v4.9.7
详情Adobe indesign cs6
详情aardiov35.0.0中文最新版
详情Adobe Creative Cloud 2024简体中文v5.3.0.48
详情暴风影音16 v9.04.1029去广告精简版
详情ASP.NET Maker 2019(ASP.NET代码生成工具)v12.0.4.0
详情暴风影音v5.92.0824.1111
详情迅雷5稳定版v5.8.14.706
详情使命召唤17官方中文版 v1.0
详情死亡之雨新的僵尸病毒中文v1.0绿色免安装版
详情辐射4v1.7.15.0整合版
详情克莉2v1.0中文版
详情冬日计划v1.2中文版
详情刺客信条英灵殿v1.0吾爱
详情刺客信条英灵殿终极v1.0免安装
详情动物森友会v1.10.0最新
详情哈迪斯杀出地狱v1.37中文
详情嗜血印中文豪华版v1.0豪华版 附游戏攻略秘籍
详情城市战斗v1.0中文
详情尼尔人工生命v1.0steam免费
详情尼尔人工生命升级版v1.0PC
详情层层恐惧2中文v1.0绿色免安装版
详情往日不再v1.0 steam
详情往日不再v1.0pc
详情小生活游戏内置MOD版v2.0(57)安卓版
详情使命召唤手游测试服最新版v1.9.41安卓版
详情三国谋定天下官服v1.2.1安卓版
详情热血新手村高爆版v1.0.0安卓版
详情我养你啊手机版v1.0.0安卓版
详情看懂了就很恐怖的故事(细思极恐)中文版v1.0安卓版
详情背包英雄中文手机版v1.1.1安卓版
详情glow官方版v2.0.9安卓版
详情三国大时代4霸王立志官方正版v1.9安卓版
详情飞卢小说阅读器手机版v7.0.7安卓版
详情牛牛粤语词典软件v20.4.4安卓版
详情PrettyUp视频美化瘦身软件v2.3.0
详情化学方程式app中文版v1.1.0.20安卓版
详情地下城堡3魂之诗2024安卓最新版v1.2.3安卓版
详情南方都市报v6.10.0安卓版
详情阿修罗之眼正版v1.0.10安卓版
详情