新建模块,复制下面两个函数. 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 1...[ 查看全文 ]