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表示以何种设置为标准表示每年的一击开始。
标签: 日期
相关文章
ip雷达 v5.0.2绿色版
详情WinSCPv5.15.1绿色中文版
详情filezilla client v5.5
详情wireshark中文版 v3.4.9
详情Boson Netsimv10.8破解版
详情风行播放器 v3.0.6.106
详情爱奇艺客户端 v10.1.0.6636官方版
详情搜狐影音 v7.0.19.0官方版
详情乐视视频 v7.3.2.192
详情华数tv客户端PC版 v1.1.2.0
详情cbox央视影音 v5.1.2.1经典版
详情软媒收音机(魔方) v1.13
详情倾听网络收音机 v3.0.0.0
详情魅影流声全球网络收音机 v1.0.0.1
详情酷狗电台 v8.2.75
详情暴龙网络收音机 v2.5.1
详情克莉2v1.0中文版
详情冬日计划v1.2中文版
详情刺客信条英灵殿v1.0吾爱破解版
详情刺客信条英灵殿终极v1.0免安装破解版
详情动物森友会v1.10.0最新破解版
详情哈迪斯杀出地狱v1.37中文破解版
详情嗜血印中文豪华版v1.0豪华版破解版 附游戏攻略秘籍
详情城市战斗v1.0中文破解版
详情尼尔人工生命v1.0steam免费破解版
详情尼尔人工生命升级版v1.0PC破解版
详情尼尔人工生命升级版v1.2247中文破解版
详情层层恐惧2中文破解版v1.0绿色免安装版
详情往日不再v1.0 steam破解版
详情往日不再v1.0pc破解版
详情救赎之路v1.0中文破解版
详情斯盖尔女仆v1.0中文破解版
详情新盗墓笔记官方版v1.215.589730
详情无尽的拉格朗日无限金币钻石版v1.2.267172破解版
详情明日之后无限小太阳版v1.0.246安卓版
详情双生幻想vivo版v6.6.83安卓版
详情剑网1归来内购免费版v1.1.116安卓版
详情模拟城市我是市长国际版v0.69.21342.22832安卓版
详情迷你世界999999迷你币版v1.20.5破解版
详情王牌战争无限内购版v9.7安卓版
详情云上城之歌不氪金版v10.16安卓版
详情王铲铲的致富之路破解版v1.1.8安卓版
详情创造与魔法无限点券版v1.0.0505安卓版
详情狩猎使命九游版v1.6.6.000
详情魔镜物语变态版v2.1.4无限金币版
详情黑月手游免费版v2.2.0安卓版
详情曙光英雄v1.0.12.0.20无限钻石版
详情原始传奇无限元宝版v1.6.806内购破解版
详情