身份證公歷、農(nóng)歷職員生日查詢系統(tǒng)，真情大奉獻(xiàn) [半原創(chuàng)：經(jīng)人幫助及借鑒別人函數(shù)修

999169

ok

萍水緣

不錯(cuò)啊！我有時(shí)間來(lái)改成ACCESS版

萍水緣

籍貫，不能直接校驗(yàn)的嗎？

做個(gè)輔助的表就可以直接由身份證的前6位知道是那個(gè)縣（市）的。

我的建議怎樣？

小高

好呀!繼續(xù)努力

ccmyfriend

既要看，又要頂，謝謝樓主奉獻(xiàn)

綠色愛(ài)好者

真不錯(cuò)��！

chang

不錯(cuò)

chang

發(fā)個(gè)準(zhǔn)確計(jì)算年齡的源碼：

'***************************************
'由http://m.mzhfr.cn/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綠色免費(fèi)版

13427349911

不錯(cuò)��！