四舍五入，自定义取出的小数位数

similarzhang

调用了精易模块的取文本命令，参考了论坛里找的一个源码，用的大数xx类型

  

子程序名	返回值类型	公开	备 注
_四舍五入_指定小数位数	文本型
参数名	类 型	参考	可空	数组	备 注
大数文本	文本型
小数点后位数	整数型

变量名	类 型	静态	数组	备 注
保留文本	文本型
整数部分	文本型
小数部分	文本型
取出小数	文本型
小数尾部数	文本型
小数尾部数_后一位	文本型
进位小数补零	文本型
i	整数型
大数_原整数	大数
大数_原取出小数	大数
大数_进位加1	大数
大数_结果	大数

整数部分 ＝ 文本_取左边 (大数文本, “.”)
小数部分 ＝ 文本_取右边 (大数文本, “.”)
取出小数 ＝ 取文本左边 (小数部分, 小数点后位数)  ' 小数需要取出的内容
小数尾部数 ＝ 取文本中间 (小数部分, 小数点后位数, 1)  ' 小数的尾部数，用于判断是否为9，尾部补0
小数尾部数_后一位 ＝ 取文本中间 (小数部分, 小数点后位数 ＋ 1, 1)  ' 小数尾部数的后一位，用于判断是否需要进位
判断 (到数值 (小数尾部数_后一位) ≥ 5)
计次循环首 (小数点后位数 － 1, i)
进位小数补零 ＝ “0” ＋ 进位小数补零
计次循环尾 ()
大数_进位加1.导入文本 (“0.” ＋ 进位小数补零 ＋ “1”)  ' 小数尾部进位，需要“加1”
大数_原取出小数.导入文本 (“0.” ＋ 取出小数)  ' 需要取出的N位小数，尚未四舍五入
大数_原整数.导入文本 (整数部分)  ' 整数部分，导入为大数，用于下面相加
大数_结果 ＝ 大数_进位加1.加 (大数_原取出小数)  ' 加1
大数_结果 ＝ 大数_结果.加 (大数_原整数)  ' 加上整数
判断 (到数值 (小数尾部数) ＝ 9)  ' 前一位为9合并后会少1位，补个0
返回 (大数_结果.导出文本 () ＋ “0”)
返回 (大数_结果.导出文本 ())

返回 (整数部分 ＋ “.” ＋ 取出小数)

i支持库列表	支持库注释
eCalc	数值计算支持库

.版本 2<br /> .支持库 eCalc<br /> <br /> .子程序 _四舍五入_指定小数位数, 文本型<br /> .参数 大数文本, 文本型<br /> .参数 小数点后位数, 整数型<br /> .局部变量 保留文本, 文本型<br /> .局部变量 整数部分, 文本型<br /> .局部变量 小数部分, 文本型<br /> .局部变量 取出小数, 文本型<br /> .局部变量 小数尾部数, 文本型<br /> .局部变量 小数尾部数_后一位, 文本型<br /> .局部变量 进位小数补零, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 大数_原整数, 大数<br /> .局部变量 大数_原取出小数, 大数<br /> .局部变量 大数_进位加1, 大数<br /> .局部变量 大数_结果, 大数<br /> <br /> <br /> 整数部分 ＝ 文本_取左边 (大数文本, “.”)<br /> 小数部分 ＝ 文本_取右边 (大数文本, “.”)<br /> 取出小数 ＝ 取文本左边 (小数部分, 小数点后位数)  ' 小数需要取出的内容<br /> <br /> 小数尾部数 ＝ 取文本中间 (小数部分, 小数点后位数, 1)  ' 小数的尾部数，用于判断是否为9，尾部补0<br /> 小数尾部数_后一位 ＝ 取文本中间 (小数部分, 小数点后位数 ＋ 1, 1)  ' 小数尾部数的后一位，用于判断是否需要进位<br /> <br /> .判断开始 (到数值 (小数尾部数_后一位) ≥ 5)<br />     .计次循环首 (小数点后位数 － 1, i)<br />         进位小数补零 ＝ “0” ＋ 进位小数补零<br />     .计次循环尾 ()<br /> <br />     大数_进位加1.导入文本 (“0.” ＋ 进位小数补零 ＋ “1”)  ' 小数尾部进位，需要“加1”<br />     大数_原取出小数.导入文本 (“0.” ＋ 取出小数)  ' 需要取出的N位小数，尚未四舍五入<br />     大数_原整数.导入文本 (整数部分)  ' 整数部分，导入为大数，用于下面相加<br /> <br />     大数_结果 ＝ 大数_进位加1.加 (大数_原取出小数)  ' 加1<br />     大数_结果 ＝ 大数_结果.加 (大数_原整数)  ' 加上整数<br /> <br />     .判断开始 (到数值 (小数尾部数) ＝ 9)  ' 前一位为9合并后会少1位，补个0<br />         返回 (大数_结果.导出文本 () ＋ “0”)<br />     .默认<br />         返回 (大数_结果.导出文本 ())<br />     .判断结束<br /> <br /> .默认<br />     返回 (整数部分 ＋ “.” ＋ 取出小数)<br /> .判断结束

liuxh3388

挺好的.自带的数字和文本转来转去老麻烦了.还是这个省事

Suky

想处理高精度位数小数，搜到了这个帖子
学习了

useo

非常不错，感谢分享

kiss0459

哥只是一个传说 发表于 2019-12-23 22:48
根本就没有这个命令

    调用格式： 〈文本型〉 格式化文本 （文本型 格式，通用型 参数，... ） - 应用接口支持库->系统处理
    英文名称：sprintf
    将一个格式化的字符串输出到一个目的字符串中。本命令为初级命令。命令参数表中最后一个参数可以被重复添加。
    参数<1>的名称为“格式”，类型为“文本型（text）”。转换的格式，以百分比符号 % 开始到转换字符为止。而在转换的格式间依序包括了1. 对齐方式。默认值为向右对齐，负号表向左对齐。2. 字段宽度。为最小宽度。3. 精确度。指在小数点后的浮点数位数。4. 类型:  % - 印出百分比符号，不转换； c - 整数转成对应的 ASCII 字符； d - 整数； f - 双精度数字； o - 整数转成八进位； s - 字符串； x - 整数转成小写十六进位； X - 整数转成大写十六进位。
    参数<2>的名称为“参数”，类型为“通用型（all）”。

    操作系统需求： Windows
------------------------------------------------------
你得易语言是外国得么？

哥只是一个传说

kiss0459 发表于 2019-12-20 20:27
格式化文本 一句代码就搞定了，用得着这么罗嗦么？

根本就没有这个命令

千面萌萌

和核心支持库函数 四舍五入(，)  有什么区别？

飞鱼软件

非常不错，感谢分享

外星星人

非常不错，感谢分享

kiss0459

格式化文本 一句代码就搞定了，用得着这么罗嗦么？

dazhujia1

精彩文章希望继续努力