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

楼主

已结贴√ 问题点数：40 回复次数：9

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

测试代码：

程序代码：

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  &&计算日期差
DECLARE FormatLunarYear IN dlltest.dll INTEGER iyear,STRING @buffer  &&格式化阴历的year
DECLARE FormatMonth IN dlltest.dll INTEGER imonth,STRING @buffer     &&格式化阴历的month
DECLARE FormatLunarDay IN dlltest.dll INTEGER iday,STRING @buffer    &&格式化阴历的day
&&函数声明结束
clear
year1=0
month1=0
day1=0
ybuffer=space(10)
mbuffer=space(4)
dbuffer=space(8)
GetLunarDate(2013,01,07,@year1,@month1,@day1)
FormatLunarYear(year1,@ybuffer)
FormatMonth(month1,@mbuffer)
FormatLunarDay(day1,@dbuffer)
?'转换后的阴历日期是'+ybuffer+mbuffer+dbuffer
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)+'天就过生日了'
[local]1[/local]

[ 本帖最后由 wp231957 于 2013-1-7 12:06 编辑 ]

dlltest.rar (228.36 KB)

搜索更多相关主题的帖子: 测试　

第 2 楼

得分:0

要给朋友写个库函数
可是朋友只会vfp 没办法用c写了一个阴阳历转换的库函数

我自己测试了没问题希望各位老大们帮我多做一些测试案例

谢谢了

DO IT YOURSELF !

第 3 楼

得分:0

测试结果随便找个万年历就知道对不对了

DO IT YOURSELF !

第 4 楼

得分:0

4楼5楼故意捣乱者分没有

DO IT YOURSELF !

第 5 楼

得分:0

回复 6楼阿鞠尼

小兄弟要是不懂vfp 那就算了
要是懂的话安装不是问题

DO IT YOURSELF !

第 6 楼

得分:0

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

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

DO IT YOURSELF !

第 7 楼

得分: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 !

第 8 楼

得分: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)+'天就过生日了'

DO IT YOURSELF !

第 9 楼

得分:0

主楼更正了测试代码
重新上传了dll文件
增加了几个导出函数

DO IT YOURSELF !

第 10 楼

得分:0

图片附件: 游客没有浏览图片的权限，请登录或注册

DO IT YOURSELF !