要编程查身份证号，你可以使用Excel的VBA代码来提取身份证号中的信息，如出生日期和性别。以下是一个简单的VBA示例，用于提取身份证号中的出生日期：
```vba
Sub 提取出生日期()
Dim ws As Worksheet
Dim i As Integer
Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设在 Sheet1 工作表操作
For i = 1 To 10 ' 假设数据在 A1:A10 范围
Dim idNumber As String
idNumber = ws.Cells(i, 1).Value ' 获取身份证号码
Dim birthDate As String
birthDate = Mid(idNumber, 7, 8) ' 从第 7 位开始,提取 8 位作为出生日期
ws.Cells(i, 2).Value = Format(DateSerial(Left(birthDate, 4), Mid(birthDate, 5, 2), Right(birthDate, 2)), "yyyy-mm-dd") ' 将提取的数字转换为日期格式并输出到 B 列
Next i
End Sub
```
这段代码首先设置了一个工作表，然后遍历了A1到A10的范围，提取每个身份证号码中的出生日期，并将其转换为日期格式后输出到B列。
如果你想要检查身份证号码的有效性，包括校验码的计算，你可以使用Python编写一个程序。以下是一个简单的Python示例，用于验证身份证号码并提取相关信息：
```python
from datetime import datetime
def check_code(id_num):
if len(id_num) != 18:
return False
factor = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)
last = ('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2')
total = sum(int(digit) * factor[i] for i, digit in enumerate(id_num[:-1]))
check = (11 - total % 11) % 11
return last[check] == id_num[-1]
def extract_info(id_num):
if not check_code(id_num):
return "身份证号无效"
birth_date = id_num[6:14]
gender = "男" if int(id_num) % 2 == 1 else "女"
return {
"省份": id_num[:6],
"城市": id_num[6:10],
"日期": birth_date,
"性别": gender
}
示例
id_number = input("请输入身份证号码：")
info = extract_info(id_number)
if isinstance(info, str):
print(info)
else:
print(f"省份：{info['省份']}")
print(f"城市：{info['城市']}")
print(f"出生日期：{info['日期']}")
print(f"性别：{info['性别']}")
```
这个Python程序首先定义了一个函数`check_code`来检查身份证号码的有效性，然后定义了一个函数`extract_info`来提取身份证号码中的省份、城市、出生日期和性别信息。最后，程序接收用户输入的身份证号码，并调用这些函数来显示相关信息。
请注意，这些代码示例仅用于演示目的，实际应用中可能需要根据具体需求进行调整和优化。