ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 17104|回复: 34

职员身份证生日公历、农历管理系统 [半原创](借用并修改别人的函数模块)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-11-5 14:35 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

[半原创]职员身份证生日公历、农历管理系统(借用修改别人的函数模块)

主要特色:

1.通过身份证来确定并校验逻辑上的真假和事实上的符合性

2.获取的信息有:性别、年龄、出生年月(公历、农历)等

3.通过输入自由查询公历、农历生日人员名单

4.更有贴心的本周人员名单

5.全部计算采用上点通

文件已经更新,大家可以放心下载,不用改了。 HEMuP3q9.rar (132.56 KB, 下载次数: 1120)
[此贴子已经被作者于2005-11-5 16:40:14编辑过]

Ys5voGV9.rar

133.07 KB, 下载次数: 679

[半原创]职员身份证生日公历、农历管理系统(借用修改别人的函数模块)

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-5 14:53 | 显示全部楼层

呵呵,上传完,最后调试发现,那个NLSEARCH

里的DATA1、2不要NLDate了,大家自己改下

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-5 15:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
[半原创:经人帮助及借鉴别人函数修改]身份证公历、农历职员生日查询系统,真情大奉献

主要特色:

1.通过身份证来确定并校验逻辑上的真假和事实上的符合性

2.获取的信息有:性别、年龄、出生年月(公历、农历)等

3.通过输入自由查询公历、农历生日人员名单

4.更有贴心的本周人员名单

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-5 16:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-11-6 08:52 | 显示全部楼层

secowu 不知你的数据在什么地方取得的,广东省珠海市汕头市广东省珠海市市辖区广东省珠海市龙湖区广东省珠海市金平区广东省珠海市濠江区广东省珠海市潮阳区广东省珠海市潮南区广东省珠海市澄海区

汕头市是不隶属于珠海市的,龙湖区、金平区、濠江区、潮阳区、潮南区、澄海区都隶属于汕头市。我查不到这些资料,估计里面数据错误很多。

[此贴子已经被作者于2005-11-6 8:55:45编辑过]

TA的精华主题

TA的得分主题

发表于 2005-11-6 15:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢分享。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-7 08:05 | 显示全部楼层
以下是引用jyq8在2005-11-6 8:52:35的发言:

secowu 不知你的数据在什么地方取得的,广东省珠海市汕头市广东省珠海市市辖区广东省珠海市龙湖区广东省珠海市金平区广东省珠海市濠江区广东省珠海市潮阳区广东省珠海市潮南区广东省珠海市澄海区

汕头市是不隶属于珠海市的,龙湖区、金平区、濠江区、潮阳区、潮南区、澄海区都隶属于汕头市。我查不到这些资料,估计里面数据错误很多。

呵呵,那些数据从国家统计局网站上弄来的

因为,偶采用的数据是最新的那份,所以,不会包含以前旧的行政区划的资料

我试着去做了一半,加入了旧的行政区划,你可以查看表“数据库”

或者,你也可以自行更新至最完整的,包含旧的

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-7 08:06 | 显示全部楼层

由于,从国家统计局得到的数据是最短的,

因此,有可能在做补齐地名进,眼花了,弄错了。。。。

呵呵

TA的精华主题

TA的得分主题

发表于 2005-11-7 11:11 | 显示全部楼层

Dim x As New ADODB.Connection, yy As New ADODB.Recordset

这句出错,“用户定义类型未定义”应引用什么库?

[em04]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-11-7 13:53 | 显示全部楼层
请看图00000000000000000000
[此贴子已经被作者于2005-11-7 13:54:18编辑过]
ZtCNlLKv.jpg
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-27 04:07 , Processed in 0.032638 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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