先试下再说~
以下是引用tlliqi在2013-1-6 23:53:30的发言:
多谢 再用其他组数据测试呢
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
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)+'天就过生日了'