function TmainForm.tysswr(n,i:integer;s:string):string; //n间隔四舍六入
var temp:real;
t:string;
begin
temp:=strtofloat(s)/n;
t:=mainForm.sswr(floattostr(temp),i);
temp:=strtofloat(t)*n;
t:=mainForm.sswr(floattostr(temp),i);
result:=t;
end;[@more@]
var temp:real;
t:string;
begin
temp:=strtofloat(s)/n;
t:=mainForm.sswr(floattostr(temp),i);
temp:=strtofloat(t)*n;
t:=mainForm.sswr(floattostr(temp),i);
result:=t;
end;[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/11218608/viewspace-1011006/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
计算两个日期间有多少个工作日
下一篇：
自造字与生僻字输入
请登录后发表评论
登录
全部评论
-
博文量8
-
访问量152991
