如何用VBA从身份证号码中提取性别

Sub 根据身份证号码确定性别()

sid = InputBox("请输入身份证号码：")

i = Len(sid)

If i <> 15 And i <> 18 Then              '判断身份证号长度是否正确

MsgBox "身份证号码只能为15位或18位！"

Exit Sub

End If

If i = 15 Then                           '长度为15位

s = Right(sid, 1)                     '取最右侧的数字

Else                                     '长度为18度

s = Mid(sid, 17, 1)                   '取倒数第2位数

End If

If Int(s / 2) = s / 2 Then               '为偶数

sex = "女"

Else

sex = "男"

End If

MsgBox "性别：" + sex

End Sub