Office中国论坛/Access中国论坛

标题: 身份证得出出生日期 [打印本页]

作者: j110119 时间: 2003-10-15 23:31
标题: 身份证得出出生日期
请问如何根据身份证号,得出出生年月日?

作者: pigeon 时间: 2003-10-15 23:44
如果15位，取6个字节，否则取8个。
iif(len([身份证字段名]＝15,mid([身份证字段名],7,6),mid([身份证字段名],7,8)))
我也是从网上学的

作者: j110119 时间: 2003-10-16 00:30
请教:
我输进去怎么不行呢!
假如身份证号是:510011790930176
出生日期应显示的是:1979年9月30日
能这样吗?

作者: andymark 时间: 2003-10-16 01:04
这是别人写的可参考一下
Private Sub 职工ID_AfterUpdate()
On Error GoTo Err_职工ID_Click
If Len(职工ID) = 15 Then
xbstr = Right(Trim(职工ID), 1)
出生日期.Value = Mid(职工ID, 7, 2) & "-" & Mid(职工ID, 9, 2) & "-" & Mid(职工ID, 11, 2)
Else
If Len(职工ID) = 18 Then
xbstr = Mid(职工ID, 17, 1)
出生日期.Value = Mid(职工ID, 7, 4) & "-" & Mid(职工ID, 11, 2) & "-" & Mid(职工ID, 13, 2)
Else
MsgBox "身份证数位错误，请检查。", 64, "提醒"
职工ID.SetFocus
Exit Sub
End If
End If
result = xbstr Mod 2
If result = 0 Then
性别.Value = "女"
Else
性别.Value = "男"
End If

Exit_职工ID_Click:
Exit Sub

Err_职工ID_Click:
MsgBox "不能识别的身份证！", 64, "提醒"
Resume Exit_职工ID_Click
End Sub

作者: ADAM 时间: 2003-10-16 01:17
用這個函數啊.

MyDate = DateSerial(1969, 2, 12)
1969年的值
2月的值
12日的值
按從身份證上取下來的年,月,日值放入相應位置,就可組合成日期了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)