如何从 Crystal 报告中的小数中删除不需要的零
How to Remove Unwanted Zeors From Decimal Numbers In Crystal Reports
在我的 Crystal 报告中,我有三种十进制数。
1) 11.00 , 2.00
2) 2.50, 1.30
3) 11.75, 2.25
我需要将这 3 种类型格式化如下
1) 11, 2
2) 2.5, 1.3
3) 11.75, 2.25
这意味着我想从我的十进制数中删除不需要的零。怎么做到的?
- 右键单击报表上的字段 canvas
- select 格式字段
- select 数字选项卡
- select 自定义样式
- select 自定义
小数点旁边的select X-2框并输入以下公式
numbervar dec := 9;
numbervar i;
numbervar j := dec + 1;
numbervar x;
for i := 1 to j do (
if val(right(totext(currentfieldvalue,j,""),i)) = 0 then
x := j - i);
x
在那下方 select 四舍五入旁边的 X-2 按钮并输入此公式
numbervar dec;
试试这个:
if ".0" IN ToText({ABC.ABC})
then
Replace(Replace (ToText({ABC.ABC}), ".0","" ),"0","")
else
Replace (ToText({ABC.ABC}), "0","" )
在我的 Crystal 报告中,我有三种十进制数。
1) 11.00 , 2.00
2) 2.50, 1.30
3) 11.75, 2.25
我需要将这 3 种类型格式化如下
1) 11, 2
2) 2.5, 1.3
3) 11.75, 2.25
这意味着我想从我的十进制数中删除不需要的零。怎么做到的?
- 右键单击报表上的字段 canvas
- select 格式字段
- select 数字选项卡
- select 自定义样式
- select 自定义
小数点旁边的select X-2框并输入以下公式
numbervar dec := 9; numbervar i; numbervar j := dec + 1; numbervar x; for i := 1 to j do ( if val(right(totext(currentfieldvalue,j,""),i)) = 0 then x := j - i); x
在那下方 select 四舍五入旁边的 X-2 按钮并输入此公式
numbervar dec;
试试这个:
if ".0" IN ToText({ABC.ABC})
then
Replace(Replace (ToText({ABC.ABC}), ".0","" ),"0","")
else
Replace (ToText({ABC.ABC}), "0","" )