各位老大，帮忙做个测试呗 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 各位老大，帮忙做个测试呗

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 716 人关注过本帖

标题：各位老大，帮忙做个测试呗

只看楼主加入收藏

bccn482561

等　级：论坛游侠
帖　子：80
专家分：142
注　册：2012-11-30

第 11 楼

得分:8

先试下再说~

2013-01-07 01:32

wp231957

来　自：神界
等　级：贵宾
威　望：423
帖　子：13688
专家分：53332
注　册：2012-10-18

第 12 楼

得分:0

以下是引用tlliqi在2013-1-6 23:53:30的发言：

多谢再用其他组数据测试呢

DO IT YOURSELF !

2013-01-07 06:18

wp231957

来　自：神界
等　级：贵宾
威　望：423
帖　子：13688
专家分：53332
注　册：2012-10-18

第 13 楼

得分:0

以下是引用sdta在2013-1-6 23:52:56的发言：

这个函数如何调用

测试代码中有啊

程序代码：

DECLARE CovertLunarToSolar IN dlltest.dll  INTEGER iyear,INTEGER imonth,INTEGER iday,INTEGER @iyear,INTEGER @imonth,INTEGER @iday
DECLARE GetLunarDate IN dlltest.dll  INTEGER iyear,INTEGER imonth,INTEGER iday,INTEGER @iyear,INTEGER @imonth,INTEGER @iday
x=2013  &&阴历年份
y=01    &&阴历月份
z=04    &&阴历天数
x1=0    &&待转换阳历年份
y1=0    &&待转换阳历月份
z1=0    &&待转换阳历天数
CovertLunarToSolar(x,y,z,@x1,@y1,@z1) &&阴历转阳历
?x1
?y1
?z1
xx1=0  &&待转换阴历年份
yy1=0  &&待转换阴历月份
zz1=0  &&待转换阴历天数
GetLunarDate(x1,y1,z1,@xx1,@yy1,@zz1)  &&阳历转阴历
?xx1
?yy1
?zz1
GetLunarDate(x,y,z,@xx1,@yy1,@zz1)  &&阳历转阴历
?xx1
?yy1
?zz1

DO IT YOURSELF !

2013-01-07 06:23

wp231957

来　自：神界
等　级：贵宾
威　望：423
帖　子：13688
专家分：53332
注　册：2012-10-18

第 14 楼

得分:0

新的测试代码

程序代码：

DECLARE CovertLunarToSolar IN dlltest.dll  INTEGER iyear,INTEGER imonth,INTEGER iday,INTEGER @iyear,INTEGER @imonth,INTEGER @iday
DECLARE GetLunarDate IN dlltest.dll  INTEGER iyear,INTEGER imonth,INTEGER iday,INTEGER @iyear,INTEGER @imonth,INTEGER @iday
DECLARE INTEGER CalcDateDiff IN dlltest.dll  INTEGER iyear,INTEGER imonth,INTEGER iday,INTEGER iyear,INTEGER imonth,INTEGER iday

year1=0
month1=0
day1=0
CovertLunarToSolar(2012,12,23,@year1,@month1,@day1)
?'我的阳历生日是'+str(year1,4,0)+'年'+str(month1,2,0)+'月'+str(day1,2,0)+'日'
idays=CalcDateDiff(year1,month1,day1,year(date()),month(date()),day(date()))
?'我还有'+str(idays,3,0)+'天就过生日了'