如何求余数.?

Question

我想求他们的余数.语句是这样的[IF([[[qty] *1.065]mod kqty]> 0,1,0)] 
如果余数大于0的话就为1否则就为0 ,比如1500(qty)*1.065= 1597.5如果用MOD 的话 =1598 然后1598/2(kqty)=799了.这样的话.算的就没有余数了.就得不到我要的值.如果用'/'号的话.值肯定为1了.我要用什么方法才能算出他们的余数.1500*1.065/2=795.85

Answer 1

描述不清楚的自己写判断计算都该可以的http://lysoft.7u7.net

Answer 2

在uses中加入Math单元
用函数如:RoundTo(t1/t2,-2)计算出来结果为小数点后二位.

Answer 3

var
 Val : intger;
begin
Val:=trunc(1500*0.2) mod 8;
end;

Answer 4

我主要的目的是求他们是否有余数.如果有就加1 否则就加0 后来想了好久.还是同事解了这道难题.让你们看一下是怎么写的吧. ds:=[[INT([qryTranPPN_Item."qty"]*1.065/[F('t_PaperCO', 'co_no='+[qryTranPPN_item."prod_no"], 'kqty')])]+ 
[IF([INT([qryTranPPN_Item."qty"]*1.065/[F('t_PaperCO', 'co_no='+[qryTranPPN_item."prod_no"], 'kqty')])]=
[qryTranPPN_Item."qty"]*1.065/[F('t_PaperCO', 'co_no='+[qryTranPPN_item."prod_no"], 'kqty')],0,1)]]
如果第一个取整的值等于第二个值就加0 否则就加1  这样写不错吧 .