求教 计算结果怎么保留小数点后两位数

hx2157895

结果=数据0*1150+数据1*1300+数据2*1140+数据3*1225+数据4+数据8+数据9+数据10-数据6
    编辑框设置文本("编辑框11",结果)
    结果1=数据5-数据5/1.2
    编辑框设置文本("编辑框7",结果1)
    结果2=数据5*2600
    编辑框设置文本("编辑框6",结果2)
    过渡=数据5*5.25*3
    编辑框设置文本("编辑框4",过渡)
    实物奖励=结果1*2600
    编辑框设置文本("编辑框8",实物奖励)

言术

。。。。。

1102509486

转换成字符串 然后查找字符串中 . 的位置  在找到的位置上加 2位   在用字符串取左边  

言术

实物奖励=结果1*2600
实物奖励=保留几位小数(实物奖励,2,真)
编辑框设置文本("编辑框8",实物奖励)


功能 保留几位小数(要操作的数,保留几位,是否四舍五入)
    如果(!是否浮点型(要操作的数))
        调试输出("不是浮点型")
        返回 假
    结束
   
    变量 小数点位置=字符串查找(要操作的数,".")
    如果(是否四舍五入&&保留几位<=0)
        返回 转整型(要操作的数)
    否则如果(保留几位<=0)
        返回 取整(要操作的数)
    否则如果(是否四舍五入)
        变量 要四舍五入的数=字符串截取(要操作的数,小数点位置+保留几位+1,小数点位置+保留几位+2)
        如果(要四舍五入的数>=5)
            变量 进位="0."
            遍历(变量 i = 0; i < 保留几位-1; i++)
                进位=进位&"0"
            结束
            进位=进位&"1"
            要操作的数=要操作的数+进位
        结束
    结束
   
    返回 字符串截取左侧(要操作的数,小数点位置+保留几位+1)
结束

hx2157895

就是保留小数点后两位四舍五入的 就相当于做个计算器所得的结果保留小数点后两位四舍五入         看你们写的我试了试 好像还是不行啊

good

得自己再加个功能只输入数字,要不就得返回值前把小数保留类型搞妥.
输入整数或带一位小数的,数字不变, 你想把1变成1.00得另外往里面填代码

hx2157895

我用的是tc5.0 语法上有点小出入 但试了试 好像还是不行哎  是不是设置的太复杂了

xyn3007

刚学TC，遇到了小数点问题。参考各ID的思路，最后如下方法解决，也是仅供参考
功能 按钮0_点击()
    //这里添加你要执行的代码
    处理_小数点后位数(312.3173586,1)
    处理_小数点后位数(312.3173586,2)
    处理_小数点后位数(312.3173586,3)
    处理_小数点后位数(312.3173586,4)
    处理_小数点后位数(312.3173586,5)
结束
功能 处理_小数点后位数(需处理数字,保留位数)
    变量 临时文本=转字符型(转整型(需处理数字*(数学求幂(10,保留位数))))
    临时文本=字符串截取左侧(临时文本,字符串长度(临时文本)-保留位数)&"."&字符串截取右侧(临时文本,保留位数)
    消息框("初始数字:"&需处理数字&"\r\n保留位数:"&保留位数&"\r\n处理后数:"&临时文本)
结束

cxmin123456

先把结果乘以100，然后四舍五入取整，再除以100