问个问题

q4567

比如数值是 1.1w 或 11.1w 或 111.1w  比如我下单的数量是 5000 怎么补成 10000  下单数量是不固定的只要让他 转换成 2.1w 或 12.1w 或 112.1w

b0y

没看懂   除10000 四舍五入  在加W

q4567

b0y 发表于 2025-4-25 08:30
没看懂   除10000 四舍五入  在加W

我试试看哈   

曦月

  

如果 (数量 ＞ 10000)
标签_数量.标题 ＝ 到文本 (数量 ÷ 10000)
标签_单位.标题 ＝ “万单”


标签_数量.标题 ＝ 到文本 (数量)
标签_单位.标题 ＝ “单”

.版本 2<br /> <br /> .如果 (数量 ＞ 10000)<br />     标签_数量.标题 ＝ 到文本 (数量 ÷ 10000)<br />     标签_单位.标题 ＝ “万单”<br /> .否则<br /> <br />     标签_数量.标题 ＝ 到文本 (数量)<br />     标签_单位.标题 ＝ “单”

Ruang

  

子程序名	返回值类型	公开	备 注
功能_数字转换	文本型		大于等于四位数则返回万，少则返回原文本
参数名	类 型	参考	可空	数组	备 注
数字	整数型

变量名	类 型	静态	数组	备 注
长度	整数型
结果	整数型

长度 ＝ 取文本长度 (到文本 (数字))
如果真 (长度 ≥ 4)
结果 ＝ 数字 ÷ 10000
返回 (到文本 (结果) ＋ “万”)
返回 (到文本 (数字))

.版本 2<br /> <br /> .子程序 功能_数字转换, 文本型, , 大于等于四位数则返回万，少则返回原文本<br /> .参数 数字, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 长度 ＝ 取文本长度 (到文本 (数字))<br /> .如果真 (长度 ≥ 4)<br />     结果 ＝ 数字 ÷ 10000<br />     返回 (到文本 (结果) ＋ “万”)<br /> .如果真结束<br /> 返回 (到文本 (数字))

花辞

  

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

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

变量名	类 型	静态	数组	备 注
原数值文本	文本型
原数值	双精度小数型
整数部分	整数型
补总量万	双精度小数型
用户输入万	双精度小数型
需补量	双精度小数型
补量整数	整数型

' 解析原数值（如"1.1w"）
原数值文本 ＝ 子文本替换 (编辑框原数值.内容, "w", "", , , 真)
原数值 ＝ 到数值 (原数值文本)
' 计算整数部分和目标值
整数部分 ＝ 取整 (原数值)
补总量万 ＝ (整数部分 + 1.1) － 原数值  ' 需要补的总量（万单位）
' 处理用户输入
用户输入万 ＝ 到数值 (编辑框用户输入.内容) ÷ 10000
需补量 ＝ 补总量万 － 用户输入万
' 确保补量不为负数
如果真 (需补量 ＜ 0)
需补量 ＝ 0

' 转换为整数并输出结果
补量整数 ＝ 四舍五入 (需补量 × 10000, 0)
编辑框结果.内容 ＝ 到文本 (补量整数)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .子程序 _按钮计算_被单击<br /> .局部变量 原数值文本, 文本型<br /> .局部变量 原数值, 双精度小数型<br /> .局部变量 整数部分, 整数型<br /> .局部变量 补总量万, 双精度小数型<br /> .局部变量 用户输入万, 双精度小数型<br /> .局部变量 需补量, 双精度小数型<br /> .局部变量 补量整数, 整数型<br /> <br /> ' 解析原数值（如"1.1w"）<br /> 原数值文本 ＝ 子文本替换 (编辑框原数值.内容, "w", "", , , 真)<br /> 原数值 ＝ 到数值 (原数值文本)<br /> <br /> ' 计算整数部分和目标值<br /> 整数部分 ＝ 取整 (原数值)<br /> 补总量万 ＝ (整数部分 + 1.1) － 原数值  ' 需要补的总量（万单位）<br /> <br /> ' 处理用户输入<br /> 用户输入万 ＝ 到数值 (编辑框用户输入.内容) ÷ 10000<br /> 需补量 ＝ 补总量万 － 用户输入万<br /> <br /> ' 确保补量不为负数<br /> .如果真 (需补量 ＜ 0)<br />     需补量 ＝ 0<br /> .如果真结束<br /> <br /> ' 转换为整数并输出结果<br /> 补量整数 ＝ 四舍五入 (需补量 × 10000, 0)<br /> 编辑框结果.内容 ＝ 到文本 (补量整数)