在access中增加农历支持模块

日期：2005年5月23日作者：清风网络学院查看:[大字体中字体小字体]

新建模块,复制下面两个函数. glgetnl(),strnl()

在查询中使用: select glgetnl(born) as nlborn from empolyee where glgetnl(born)>"05012" order by glgetnl(born)

上面的查询返回农历生日大于五月十二员工列表,并按农历生日排序.

(声明:这两个函数不是从零开始写的,是修改了网上不知道谁的程序代码而来的.
到google输入关键字vb 农历可以找到这篇文章的多处引用

本来是想在ASP中直接调用的,后来想到放到数据库中,但在Access中可以使用,在ASP中使用ADO无法调用.在调试中发现原数据中的1998农历闰月为小月而不是原代码中的大月,另修改了求干支算法.也没去和原作者联系,见谅.)



'输入date, 返回"mmlddyyyy" mm: 月份; l: 1,闰月,0,平常月; dd: 日; yyyy年份
Function glgetnl(ByVal gldate)

    Dim daList(111)
    '1900 to 1909
    daList(0) = "010010110110180131"
    daList(1) = "010010101110000219"
    daList(2) = "101001010111000208"
    daList(3) = "010100100110150129"
    daList(4) = "110100100110000216"
    daList(5) = "110110010101000204"
    daList(6) = "011010101010140125"
    daList(7) = "010101101010000213"
    daList(8) = "100110101101000202"
    daList(9) = "010010101110120122"
    daList(10) = "010010101110000210"
    daList(11) = "101001001101160130"
    daList(12) = "101001001101000218"
    daList(13) = "110100100101000206"
    daList(14) = "110101010100150126"
    daList(15) = "101101010101000214"
    daList(16) = "010101101010000204"
    daList(17) = "100101101101020123"
    daList(18) = "100101011011000211"
[1] [2] [3] [4] [5] [6] 下一页
在access中增加农历支持模块相关文章：
·用SQL链接服务器访问远程Access数据库
·掌握部署 Access项目的方法
·设置在 Access项目中检索的记录数
·保存对共享Access数据库的设计更改(MDB)
·ASP代码直接增加、删除ACCESS表和字段
·Asp.net 备份和还原SQL Server及压缩Access数据库
·用ASP和SQL语句动态的创建Access表
·安全的Microsoft的ACCESS数据库加密方法
·几种修复ACCESS数据库的实用方法
·以前流行的4种Access数据库安全方式
在access中增加农历支持模块相关软件
·Access数据库解疑专家
·计算机公益版上机模拟软件二级Access
·2006年4月计算机二级Access笔试试题
·Access键盘快捷键大全
·2005年9月计算机等级考试二级Access试卷
·CCNP 640-605 Remote Access
·HP JFS 3.3 Access Lists
·CCNP　640-605　Remote　Access
·ACCESS数据库教程 RAR 北京大学的ACCESS教程
·Access数据库教程看过了感觉还不错

上一篇:XML与HTML的结合（下）

下一篇:在ASP中使用事务控制

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

在access中增加农历支持模块

精品推荐

热点TOP10

特别推荐