整数部分要换成长整数存储，否则会出错。简单升级了一下：

  

子程序名	返回值类型	公开	备 注
自定义舍入	双精度小数型		自定义舍入函数
参数名	类 型	参考	可空	数组	备 注
欲被舍入的数值	双精度小数型				待舍入的数值
被舍入的位置	整数型				如果大于0，表示小数点右边应保留的位数,如果等于0，表示舍入到整数；如果小于0，表示小数点左边舍入到的位置。
舍入值	整数型				默认为四舍五入，舍入值为4

变量名	类 型	静态	数组	备 注
结果	双精度小数型
符号	整数型
整数部分	长整数型
小数部分	双精度小数型
倍数	双精度小数型

如果真 (是否为空 (舍入值))
舍入值 ＝ 4

' 获取数值的符号
符号 ＝ 取符号 (欲被舍入的数值)
欲被舍入的数值 ＝ 取绝对值 (欲被舍入的数值)
' 将数值拆分为整数部分和小数部分
整数部分 ＝ 到长整数 (欲被舍入的数值)
小数部分 ＝ 欲被舍入的数值 － 整数部分
如果 (被舍入的位置 ＝ 0)
' 处理保留零位小数的情况
如果 (小数部分 × 10 ＞ 舍入值)
' 判断小数部分是否大于舍入值/10
结果 ＝ 整数部分 ＋ 1
结果 ＝ 整数部分

' 计算倍数
倍数 ＝ 求次方 (10, 被舍入的位置)
如果 ( (欲被舍入的数值 － 整数部分) × 倍数 － 到长整数 ( (欲被舍入的数值 － 整数部分) × 倍数) ＞ 舍入值 ÷ 10)
结果 ＝ 整数部分 ��� (取整 ( (欲被舍入的数值 － 整数部分) × 倍数) ＋ 1) ÷ 倍数
结果 ＝ 整数部分 ＋ 取整 ( (欲被舍入的数值 － 整数部分) × 倍数) ÷ 倍数


' 恢复数值的符号
结果 ＝ 结果 × 符号
返回 (结果)

.版本 2<br /> <br /> .子程序 自定义舍入, 双精度小数型, 公开, 自定义舍入函数<br /> .参数 欲被舍入的数值, 双精度小数型, , 待舍入的数值<br /> .参数 被舍入的位置, 整数型, , 如果大于0，表示小数点右边应保留的位数,如果等于0，表示舍入到整数；如果小于0，表示小数点左边舍入到的位置。<br /> .参数 舍入值, 整数型, 可空, 默认为四舍五入，舍入值为4<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 符号, 整数型<br /> .局部变量 整数部分, 长整数型<br /> .局部变量 小数部分, 双精度小数型<br /> .局部变量 倍数, 双精度小数型<br /> <br /> .如果真 (是否为空 (舍入值))<br />     舍入值 ＝ 4<br /> .如果真结束<br /> <br /> ' 获取数值的符号<br /> 符号 ＝ 取符号 (欲被舍入的数值)<br /> 欲被舍入的数值 ＝ 取绝对值 (欲被舍入的数值)<br /> <br /> ' 将数值拆分为整数部分和小数部分<br /> 整数部分 ＝ 到长整数 (欲被舍入的数值)<br /> 小数部分 ＝ 欲被舍入的数值 － 整数部分<br /> <br /> .如果 (被舍入的位置 ＝ 0)<br />     ' 处理保留零位小数的情况<br />     .如果 (小数部分 × 10 ＞ 舍入值)<br />         ' 判断小数部分是否大于舍入值/10<br />         结果 ＝ 整数部分 ＋ 1<br />     .否则<br />         结果 ＝ 整数部分<br />     .如果结束<br /> <br /> .否则<br />     ' 计算倍数<br />     倍数 ＝ 求次方 (10, 被舍入的位置)<br />     .如果 ((欲被舍入的数值 － 整数部分) × 倍数 － 到长整数 ((欲被舍入的数值 － 整数部分) × 倍数) ＞ 舍入值 ÷ 10)<br />         结果 ＝ 整数部分 ＋ (取整 ((欲被舍入的数值 － 整数部分) × 倍数) ＋ 1) ÷ 倍数<br />     .否则<br />         结果 ＝ 整数部分 ＋ 取整 ((欲被舍入的数值 － 整数部分) × 倍数) ÷ 倍数<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> ' 恢复数值的符号<br /> 结果 ＝ 结果 × 符号<br /> 返回 (结果)

感谢分享，很给力！~

不错不错

感谢大神分享~！

请问是用什么AI写的？

轻风影 发表于 2024-11-13 20:20
整数部分要换成长整数存储，否则会出错。简单升级了一下：
[e=1].版本 2

感谢，有错误示例吗？

这个好牛逼

感谢发布原创作品，精易因你更精彩！6666666666666