身份证公历、农历职员生日查询系统，真情大奉献 [半原创：经人帮助及借鉴别人函数修

999169

ok

萍水缘

不错啊！我有时间来改成ACCESS版

萍水缘

籍贯，不能直接校验的吗？

做个辅助的表就可以直接由身份证的前6位知道是那个县（市）的。

我的建议怎样？

小高

好呀!继续努力

ccmyfriend

既要看，又要顶，谢谢楼主奉献

绿色爱好者

真不错！！

chang

不错

chang

发个准确计算年龄的源码：

'***************************************
'由http://www.office-cn.net/vvb/  chang制作
'***************************************


Private Sub 命令4_Click()
Dim y2 As Integer
Dim m2 As Integer
Dim d2 As Integer
y2 = Year(Date)
m2 = Month(Date)
d2 = Day(Date)

If Not IsNull(Me.文本0) Or Me.文本0 <> "" Then
If m2 - Month(Me.文本0) < 0 Or (m2 - Month(Me.文本0) = 0 And d2 - Day(Me.文本0) < 0) Then
Me.文本2 = y2 - Year(Me.文本0) - 1
Else
Me.文本2 = y2 - Year(Me.文本0)
End If
End If
End Sub

guhong302

fnnnnnnnnnnnnnj理 1.15绿色免费版

13427349911

不错啊！