分享一个保留小数点后N位数的源码（自动补零版本）

两只老虎

今天在写某个例子时，需要用到保留小数点后2位的功能，精易模块没有，又懒得打开论坛找，就随便写了一下
分享给有需要的人吧
写得比较粗糙，莫笑。。。


调用了精易模块

  

子程序名	返回值类型	公开	备 注
文本_保留小数点尾数	文本型
参数名	类 型	参考	可空	数组	备 注
数值	双精度小数型
位数	整数型
是否四舍五入	逻辑型

变量名	类 型	静态	数组	备 注
文本	文本型
临时	整数型
小数	双精度小数型

判断 (是否四舍五入)
小数 ＝ 四舍五入 (数值, 位数)
小数 ＝ 数值
文本 ＝ “1”
计次循环首 (位数, )
文本 ＝ 文本 ＋ “0”
计次循环尾 ()
临时 ＝ 小数 × 到数值 (文本)
文本 ＝ 到文本 (临时)
计次循环首 (位数 ＋ 1 － 取文本长度 (文本), )
文本 ＝ “0” ＋ 文本
计次循环尾 ()
返回 (取文本左边 (文本, 取文本长度 (文本) － 位数) ＋ “.” ＋ 取文本右边 (文本, 位数))

.版本 2<br /> .子程序 文本_保留小数点尾数, 文本型<br /> .参数 数值, 双精度小数型<br /> .参数 位数, 整数型<br /> .参数 是否四舍五入, 逻辑型, 可空<br /> .局部变量 文本, 文本型<br /> .局部变量 临时, 整数型<br /> .局部变量 小数, 双精度小数型<br /> <br /> .判断开始 (是否四舍五入)<br />     小数 ＝ 四舍五入 (数值, 位数)<br /> .默认<br />     小数 ＝ 数值<br /> .判断结束<br /> 文本 ＝ “1”<br /> .计次循环首 (位数, )<br />     文本 ＝ 文本 ＋ “0”<br /> .计次循环尾 ()<br /> 临时 ＝ 小数 × 到数值 (文本)<br /> 文本 ＝ 到文本 (临时)<br /> .计次循环首 (位数 ＋ 1 － 取文本长度 (文本), )<br />     文本 ＝ “0” ＋ 文本<br /> .计次循环尾 ()<br /> 返回 (取文本左边 (文本, 取文本长度 (文本) － 位数) ＋ “.” ＋ 取文本右边 (文本, 位数))

xkAnd

哈也写这种小自己写这种小函数，省得翻论坛了呢！

djdjdj69

  

子程序名	返回值类型	公开	备 注
文本_保留小数点尾数	文本型		固定只取小数后两位，不够补零
参数名	类 型	参考	可空	数组	备 注
数值文本	文本型

变量名	类 型	静态	数组	备 注
小数点位置	整数型
长度a	整数型

小数点位置 ＝ 寻找文本 (数值文本, “.”, , 假)
长度a ＝ 取文本长度 (数值文本)
如果真 (小数点位置 ＝ -1)
返回 (数值文本 ＋ “.” ＋ “00”)

如果真 (长度a － 小数点位置 ＝ 1)
返回 (数值文本 ＋ “0”)

如果真 (长度a － 小数点位置 ＝ 2)
返回 (数值文本)

如果真 (长度a － 小数点位置 ＝ 0)
返回 (文本_保留小数点尾数 (子文本替换 (数值文本, “.”, “”, , , 真)))

如果真 (长度a － 小数点位置 ＞ 2)
返回 (文本_保留小数点尾数 (到文本 (四舍五入 (到数值 (数值文本), 2))))

返回 (数值文本)

.版本 2<br /> <br /> .子程序 文本_保留小数点尾数, 文本型, , 固定只取小数后两位，不够补零<br /> .参数 数值文本, 文本型<br /> .局部变量 小数点位置, 整数型<br /> .局部变量 长度a, 整数型<br /> <br /> 小数点位置 ＝ 寻找文本 (数值文本, “.”, , 假)<br /> 长度a ＝ 取文本长度 (数值文本)<br /> <br /> .如果真 (小数点位置 ＝ -1)<br />     返回 (数值文本 ＋ “.” ＋ “00”)<br /> .如果真结束<br /> <br /> .如果真 (长度a － 小数点位置 ＝ 1)<br />     返回 (数值文本 ＋ “0”)<br /> .如果真结束<br /> <br /> .如果真 (长度a － 小数点位置 ＝ 2)<br />     返回 (数值文本)<br /> .如果真结束<br /> <br /> .如果真 (长度a － 小数点位置 ＝ 0)<br />     返回 (文本_保留小数点尾数 (子文本替换 (数值文本, “.”, “”, , , 真)))<br /> .如果真结束<br /> <br /> <br /> .如果真 (长度a － 小数点位置 ＞ 2)<br />     返回 (文本_保留小数点尾数 (到文本 (四舍五入 (到数值 (数值文本), 2))))<br /> .如果真结束<br /> <br /> 返回 (数值文本)

[JavaScript] 纯文本查看 复制代码

.版本 2

.子程序 文本_保留小数点尾数, 文本型, , 固定只取小数后两位，不够补零
.参数 数值文本, 文本型
.局部变量 小数点位置, 整数型
.局部变量 长度a, 整数型

小数点位置 ＝ 寻找文本 (数值文本, “.”, , 假)
长度a ＝ 取文本长度 (数值文本)

.如果真 (小数点位置 ＝ -1)
    返回 (数值文本 ＋ “.” ＋ “00”)
.如果真结束

.如果真 (长度a － 小数点位置 ＝ 1)
    返回 (数值文本 ＋ “0”)
.如果真结束

.如果真 (长度a － 小数点位置 ＝ 2)
    返回 (数值文本)
.如果真结束

.如果真 (长度a － 小数点位置 ＝ 0)
    返回 (文本_保留小数点尾数 (子文本替换 (数值文本, “.”, “”, , , 真)))
.如果真结束


.如果真 (长度a － 小数点位置 ＞ 2)
    返回 (文本_保留小数点尾数 (到文本 (四舍五入 (到数值 (数值文本), 2))))
.如果真结束

返回 (数值文本)

熊不熊

感谢分享，很给力！~

lm88818

        感谢分享，很给力！~

ldnavy

楼主的会转换错误,当值是1.1,2.1,3.1,4.1转换后会变成1.09,2.09,3.09.4.09.大于5.1时就正确返回

loveql26

感谢分享，很给力！~

胖子葛格

感谢大神分享~！

何浩文

感谢分享，很给力！~

please

感谢分享，支持开源！！！