设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: secowu

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

[复制链接]
发表于 2006-5-6 18:44:00 | 显示全部楼层
ok
发表于 2006-5-7 05:59:00 | 显示全部楼层
不错啊!我有时间来改成ACCESS版
发表于 2006-5-7 06:05:00 | 显示全部楼层
籍贯,不能直接校验的吗?

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

我的建议怎样?
发表于 2006-5-24 04:51:00 | 显示全部楼层
好呀!继续努力
发表于 2006-6-25 22:57:00 | 显示全部楼层
既要看,又要顶,谢谢楼主奉献
发表于 2006-9-11 01:06:00 | 显示全部楼层
真不错!!
发表于 2006-9-21 20:06:00 | 显示全部楼层
不错
发表于 2006-9-21 20:08:00 | 显示全部楼层
发个准确计算年龄的源码:

'***************************************
'由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
发表于 2006-9-24 05:54:00 | 显示全部楼层
fnnnnnnnnnnnnnj理 1.15绿色免费版
发表于 2006-9-24 16:42:00 | 显示全部楼层
不错啊!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 07:34 , Processed in 0.164777 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表