Excel VBA 提取身份证出生年月日

以下是一个简单的 VB 代码示例，用于从身份证号码中提取出生年月日信息：

Sub ExtractBirthdayFromID()

Dim ID As String
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer

ID = Range('A1').Value '将身份证号码作为字符串读入

Year = Int(Mid(ID, 7, 4)) '从身份证号码中提取出生年份
Month = Mid(ID, 11, 2) '从身份证号码中提取出生月份
Day = Mid(ID, 13, 2) '从身份证号码中提取出生日期

MsgBox '出生年月日为：' & Year & '年' & Month & '月' & Day & '日' '将生日信息输出到消息框中

End Sub

在此示例中，我们假设身份证号码存储在单元格 A1 中。代码将从该单元格中读取身份证号码，提取出生年月日信息，然后将其输出到消息框中。请注意，此代码仅适用于中国大陆身份证号码格式。如果您需要处理其他国家/地区的身份证号码，请根据需要进行修改。