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內購破解版
詳情