4,818
社区成员
发帖
与我相关
我的任务
分享numberVar num1;
numberVar num2;
stringVar pct;
num1 := 0;
num2 :=1;
pct :=CStr( num1/ num2 * 100,1);
if Right(pct,1) = '0' and num1 <> num2 then
pct := Left(pct,2);
if num1 = num2 then
pct := Left(pct,3);