办公软件专用贴

laowantong

风凌天下

34545

谁人泪

我来近近景近景斤斤计较

hx2157895

..........

hx2157895

楼主 请教下 我用tc办公  编辑框内得出的结果怎么写代码才能保留小数点后两位数？  我计算得的结果都是小数点后5位数 小白求教

花落莫相离

hx2157895 发表于 2016-3-8 11:32
楼主 请教下 我用tc办公  编辑框内得出的结果怎么写代码才能保留小数点后两位数？  我计算得的结果都是小数 ...

我也没啥好办法，给你写了一段代码，希望有用吧
参数设置：
定长：你希望小数点后保留的位数
模式：0表示保留方式为四舍五入，1表示忽略四舍五入直接按定长取数

1. 功能 按钮0_点击()
   
2.    
   
3.     变量 返回数=浮点数修整("3.52645678",2,1)
   
4.     消息框(返回数)
   
5. 结束
   
6. 
   
7. 
   
8. 功能 浮点数修整(浮点数,定长,模式)
   
9.     变量 整数,小数,返回数组,对比数,修整数
   
10.     字符串分割(浮点数,".",返回数组)
    
11.     整数=返回数组[0]
    
12.     小数=返回数组[1]
    
13.     对比数=字符串截取(小数,定长,定长+1)
    
14.    
    
15.     如果(对比数<5)
    
16.         修整数=整数&"."&字符串截取(小数,0,定长)
    
17.     否则
    
18.         选择(模式)
    
19.             条件 0//修整模式:四舍五入
    
20.             变量 进制数=1
    
21.             遍历(变量 i = 0; i < 定长; i++)
    
22.                 进制数=转浮点型(进制数)/10
    
23.             结束
    
24.             修整数=整数&"."&字符串截取(小数,0,定长)+进制数
    
25.             如果(定长<6)
    
26.                 修整数=字符串移除(修整数,(6-定长),假)
    
27.             结束
    
28.             
    
29.             条件 1//修整模式:忽略四舍五入
    
30.             修整数=整数&"."&字符串截取(小数,0,定长)
    
31.         结束
    
32.     结束
    
33.     如果(定长==0)
    
34.         修整数=字符串移除(修整数,1,假)
    
35.     结束
    
36.    
    
37.     返回 修整数
    
38. 结束

复制代码

632014138

11111111111111111111111111111

hx2157895

不管有没有用 还是谢谢了

csrcsr3318

6666666666666666

myth2003