Excel如何提取身份證中的出生日期并計(jì)算年齡

我們?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)表示每年的一擊開始。