在Excel中VBA如何提取身份證中的出生日期并計算年齡

我們在工作當中常常會使用到身份證號，有了身份證號我們就可以清楚地算出年齡及出生日期，那么到底在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表示以何種設置為標準表示每年的一擊開始。