2014/6/5 16:53:22作者:佚名來源:網(wǎng)絡(luò)
我們?cè)诠ぷ鳟?dāng)中常常會(huì)使用到身份證號(hào),有了身份證號(hào)我們就可以清楚地算出年齡及出生日期,那么到底在Excel中通過VBA如何提取身份證中的出生日期并計(jì)算年齡?要提取身份證中的出生日期并計(jì)算年齡我們可以利用VBA中的Mid函數(shù)分別獲取出生年月日,并用DateSerial函數(shù)將其轉(zhuǎn)換為日期,然后再用DateDiff函數(shù)計(jì)算機(jī)出生年月與當(dāng)前日期間隔的年數(shù),從而算出年齡,具體步驟如下:
步驟一、按組合鍵“Alt+F11”打開VBE。
步驟二、選擇菜單“插入”“模塊”并輸入以下代碼
Sub 獲取身份證中出生日期() '變量聲明 Dim RowN As Long '行號(hào) Dim sIDNo As String '身份證號(hào)碼 '循環(huán)遍歷 For RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row '獲取身份證號(hào)碼 sIDNo = Cells(RowN, "B").Value '提取出生年月 Cells(RowN, "C").Value = DateSerial _ (Mid(sIDNo, 7, 4), Mid(sIDNo, 11, 2), Mid(sIDNo, 13, 2)) '使用DateDiff函數(shù)計(jì)算年齡(周歲) Cells(RowN, "D").Value = DateDiff("yyyy", Cells(RowN, "C").Value, Date) Next End Sub
步驟三、返回工作表界面,在功能區(qū)的“開發(fā)工具”選項(xiàng)卡中單擊“宏”按鈕,執(zhí)行“VBA提取身份證中的出生日期”宏后,即可得到身份證對(duì)應(yīng)的出生日期以及年齡,如圖所示:
相關(guān)說明:
·DadeDiff函數(shù)
DadeDiff函數(shù)可以計(jì)算兩個(gè)日期之間的間隔,其語法為:
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])
參數(shù)Interval表示日期間隔以何種日期單位表示
參數(shù)date1和date2為進(jìn)行計(jì)算的兩個(gè)日期
firstdayofweek表示以哪一天作為一周的開始
firstweekofyear表示以何種設(shè)置為標(biāo)準(zhǔn)表示每年的一擊開始。
標(biāo)簽: Excel 日期 計(jì)算年齡
相關(guān)文章
金山數(shù)據(jù)恢復(fù)大師官方版 v1.0.0.2
詳情南方測(cè)繪Cass10v10.1.6中文
詳情revit 2017
詳情KeyShot Pro 9中文(附安裝教程) v9.0.286
詳情網(wǎng)易新聞客戶端v105.3
詳情AIMP4v5.11.2421中文綠色美化版
詳情onekey一鍵還原v18.0.18.1008
詳情浩辰CAD2020綠色v20.0
詳情好圖網(wǎng)圖標(biāo)轉(zhuǎn)換工具v4.9.7
詳情Adobe indesign cs6
詳情aardiov35.0.0中文最新版
詳情Adobe Creative Cloud 2024簡(jiǎn)體中文v5.3.0.48
詳情暴風(fēng)影音16 v9.04.1029去廣告精簡(jiǎn)版
詳情ASP.NET Maker 2019(ASP.NET代碼生成工具)v12.0.4.0
詳情暴風(fēng)影音v5.92.0824.1111
詳情迅雷5穩(wěn)定版v5.8.14.706
詳情使命召喚17官方中文版 v1.0
詳情死亡之雨新的僵尸病毒中文v1.0綠色免安裝版
詳情輻射4v1.7.15.0整合版
詳情克莉2v1.0中文版
詳情冬日計(jì)劃v1.2中文版
詳情刺客信條英靈殿v1.0吾愛
詳情刺客信條英靈殿終極v1.0免安裝
詳情動(dòng)物森友會(huì)v1.10.0最新
詳情哈迪斯殺出地獄v1.37中文
詳情嗜血印中文豪華版v1.0豪華版 附游戲攻略秘籍
詳情城市戰(zhàn)斗v1.0中文
詳情尼爾人工生命v1.0steam免費(fèi)
詳情尼爾人工生命升級(jí)版v1.0PC
詳情層層恐懼2中文v1.0綠色免安裝版
詳情往日不再v1.0 steam
詳情往日不再v1.0pc
詳情小生活游戲內(nèi)置MOD版v2.0(57)安卓版
詳情使命召喚手游測(cè)試服最新版v1.9.41安卓版
詳情三國謀定天下官服v1.2.1安卓版
詳情熱血新手村高爆版v1.0.0安卓版
詳情我養(yǎng)你啊手機(jī)版v1.0.0安卓版
詳情看懂了就很恐怖的故事(細(xì)思極恐)中文版v1.0安卓版
詳情背包英雄中文手機(jī)版v1.1.1安卓版
詳情glow官方版v2.0.9安卓版
詳情三國大時(shí)代4霸王立志官方正版v1.9安卓版
詳情飛盧小說閱讀器手機(jī)版v7.0.7安卓版
詳情牛?;浾Z詞典軟件v20.4.4安卓版
詳情PrettyUp視頻美化瘦身軟件v2.3.0
詳情化學(xué)方程式app中文版v1.1.0.20安卓版
詳情地下城堡3魂之詩2024安卓最新版v1.2.3安卓版
詳情南方都市報(bào)v6.10.0安卓版
詳情阿修羅之眼正版v1.0.10安卓版
詳情