您所在位置：主题：一个万年历的QB库(请下载试用,有问题请回应)
QB71
[专家分：1300] 发布于 2005-10-25 00:25:00
用了好多时间,VGA和XMS未成功,有点心烦,也有点失望
在网上狂搜,就是没有QB和其他语言接口的例子,去C/C++区
也不见高手回答,哎...........
下面是一个万年历的QB库,1920-2049年,未经严格测试
下载地址:
http://upload.programfan.com/upfile/200510242355177.rar
请用 qbx/l wnl.qlb 形式装入库文件(适用于4.5和7.1版本)
里面有三个函数:
function IsLeapYear%(y%)
参数:y% 年份(国历)
返回: -1 闰年 0 不是闰年
function Week$(y%,m%,d%)
参数:y%/m%/d% 年/月/日(国历)
返回:星期几(汉字)
function Wnl$(y%,m%,d%)
参数:y%/m%/d% 年/月/日(国历)
返回:24字节字符串:
1~8 字节 农历年 如:二零零五
9~12 字节 农历月 如:闰五
13~16字节 农历日 如:初二
17~20字节 年天干/地支 如:甲子
21~24字节 日天干/地支 如:乙丑
例: a$=Wnl(2005,10,25)
a$将是:二零零五 九廿三乙酉壬午
因为这个函数要用了很多数据,源代码移植比较麻烦,所以
做成QLB库.
空闲时我将整理成为一个单一函数,并把数据放到函数里面,
以源代码形式贴出来
如果应用中有发现问题,请在这里回应!!!!!谢谢!!!!!
在网上狂搜,就是没有QB和其他语言接口的例子,去C/C++区
也不见高手回答,哎...........
下面是一个万年历的QB库,1920-2049年,未经严格测试
下载地址:
http://upload.programfan.com/upfile/200510242355177.rar
请用 qbx/l wnl.qlb 形式装入库文件(适用于4.5和7.1版本)
里面有三个函数:
function IsLeapYear%(y%)
参数:y% 年份(国历)
返回: -1 闰年 0 不是闰年
function Week$(y%,m%,d%)
参数:y%/m%/d% 年/月/日(国历)
返回:星期几(汉字)
function Wnl$(y%,m%,d%)
参数:y%/m%/d% 年/月/日(国历)
返回:24字节字符串:
1~8 字节 农历年 如:二零零五
9~12 字节 农历月 如:闰五
13~16字节 农历日 如:初二
17~20字节 年天干/地支 如:甲子
21~24字节 日天干/地支 如:乙丑
例: a$=Wnl(2005,10,25)
a$将是:二零零五 九廿三乙酉壬午
因为这个函数要用了很多数据,源代码移植比较麻烦,所以
做成QLB库.
空闲时我将整理成为一个单一函数,并把数据放到函数里面,
以源代码形式贴出来
如果应用中有发现问题,请在这里回应!!!!!谢谢!!!!!
