Question

如何用Access 计算身份证年月日

请各位大虾指教一下!!感激不尽
列出公式:

Answer 1

在"身份证号"的"更新后"事件中写入:

If Len(Me![身份证号]) = 18 Then
Me![出生日期] = DateSerial(Mid(Trim(Me![身份证号]), 7, 4), Mid(Trim(Me![身份证号]), 11, 2), Mid(Trim(Me![身份证号]), 13, 2))
Else
Me![出生日期] = DateSerial(1900 + Mid(Trim(Me![身份证号]), 7, 2), Mid(Trim(Me![身份证号]), 9, 2), Mid(Trim(Me![身份证号]), 11, 2))
End If