数值转换

我会让你抓狂

想问下   我想自动转换数值，
例如 我设定转换数值的精度为2 ，被转换的数值是 85   那么转换的结果是  0.85   
若 我设定转换数值的精度为3，被转换的数值是 85   那么转换的结果是  0.085   
若 我设定转换数值的精度为1，被转换的数值是 5   那么转换的结果是  0.5

麻辣鸡丝

数值/10的 精度 次方

2462528259

你看看是否符合你的需求

右手胜过左手

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

判断 (编辑框1.内容 ＝ “”)
信息框 (“请输入转换位数”, #信息图标, , 窗口1)
判断 (编辑框2.内容 ＝ “”)
信息框 (“请输入要转换的数值”, #信息图标, , 窗口1)
判断 (编辑框1.内容 ＝ “1”)
编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 10)
判断 (编辑框1.内容 ＝ “2”)
编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 100)
判断 (编辑框1.内容 ＝ “3”)
编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 1000)
判断 (编辑框1.内容 ＝ “4”)
编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 10000)


' 后面方法跟以上相同，

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .判断开始 (编辑框1.内容 ＝ “”)<br />     信息框 (“请输入转换位数”, #信息图标, , 窗口1)<br /> .判断 (编辑框2.内容 ＝ “”)<br />     信息框 (“请输入要转换的数值”, #信息图标, , 窗口1)<br /> .判断 (编辑框1.内容 ＝ “1”)<br />     编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 10)<br /> .判断 (编辑框1.内容 ＝ “2”)<br />     编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 100)<br /> .判断 (编辑框1.内容 ＝ “3”)<br />     编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 1000)<br /> .判断 (编辑框1.内容 ＝ “4”)<br />     编辑框3.内容 ＝ 到文本 (到整数 (编辑框2.内容) ÷ 10000)<br /> .默认<br /> <br /> .判断结束<br /> ' 后面方法跟以上相同，

帅气与大侠

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (转换数值精度 (“85”, 2))

子程序名	返回值类型	公开	备 注
转换数值精度	文本型
参数名	类 型	参考	可空	数组	备 注
文本数值	文本型
精度	整数型

变量名	类 型	静态	数组	备 注
返回数值文本	文本型
长度	整数型
缺少长度	整数型
n	整数型
补零	文本型

返回数值文本 ＝ 取文本左边 (文本数值, 精度)
长度 ＝ 取文本长度 (返回数值文本)
如果真 (长度 ＜ 精度)
缺少长度 ＝ 精度 － 长度
计次循环首 (缺少长度, n)
补零 ＝ 补零 ＋ “0”
计次循环尾 ()

返回数值文本 ＝ “0.” ＋ 补零 ＋ 返回数值文本
返回 (返回数值文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (转换数值精度 (“85”, 2))<br /> <br /> .子程序 转换数值精度, 文本型<br /> .参数 文本数值, 文本型<br /> .参数 精度, 整数型<br /> .局部变量 返回数值文本, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 缺少长度, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 补零, 文本型<br /> <br /> 返回数值文本 ＝ 取文本左边 (文本数值, 精度)<br /> 长度 ＝ 取文本长度 (返回数值文本)<br /> .如果真 (长度 ＜ 精度)<br />     缺少长度 ＝ 精度 － 长度<br />     .计次循环首 (缺少长度, n)<br />         补零 ＝ 补零 ＋ “0”<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> 返回数值文本 ＝ “0.” ＋ 补零 ＋ 返回数值文本<br /> 返回 (返回数值文本)

我会让你抓狂

aqwvwv 发表于 2018-3-20 19:06
[e=1].版本 2
.支持库 spec

意思差不多，但如果我输入   调试输出 (转换数值精度 (“15285”, 2))    计算结果是“0.15”

补充内容 (2018-3-21 08:31):
结果应该是152.85才对