E4A怎么写才能转换金额小数点

凡尘天尊

比入编辑框里的事1000000，然后调试输出就是1,000,000

RainCharm

  

事件 按钮1.被单击 ()
编辑框2.内容 = 格式化金额 (编辑框1.内容)
调试输出 (编辑框2.内容)
结束 事件
函数 格式化金额 (金额 为 文本型) 为 文本型
变量 部分数组 为 文本型 ()
变量 整数部分 为 文本型
变量 小数部分 为 文本型
变量 结果 为 文本型
变量 i 为 整数型

' 按小数点分割
部分数组 = 分割文本 (金额, ".")

如果 取数组成员数 (部分数组) > 1 则
整数部分 = 部分数组[0]
小数部分 = 部分数组[1]
否则
整数部分 = 部分数组[0]
小数部分 = ""
结束 如果

' 格式化整数部分
整数部分 = 子文本替换 (整数部分, ",", "", 0, 0, 真)
结果 = ""

循环开始 i = 取文本长度 (整数部分) 到 1 步长 -1
如果 (取文本长度 (整数部分) - i + 1) % 3 = 1 且 i < 取文本长度 (整数部分) 则
结果 = "," + 结果
结束 如果
结果 = 取文本中间 (整数部分, i, 1) + 结果
循环结束

' 组合结果
如果 小数部分 <> "" 则
返回 结果 + "." + 小数部分
否则
返回 结果
结束 如果
结束 函数

事件 按钮1.被单击()<br />     编辑框2.内容 = 格式化金额(编辑框1.内容)<br />     调试输出(编辑框2.内容)<br /> 结束 事件<br /> <br /> 函数 格式化金额(金额 为 文本型) 为 文本型<br />     变量 部分数组 为 文本型()<br />     变量 整数部分 为 文本型<br />     变量 小数部分 为 文本型<br />     变量 结果 为 文本型<br />     变量 i 为 整数型<br />     <br />     ' 按小数点分割<br />     部分数组 = 分割文本(金额, ".")<br />     <br />     如果 取数组成员数(部分数组) > 1 则<br />         整数部分 = 部分数组[0]<br />         小数部分 = 部分数组[1]<br />     否则<br />         整数部分 = 部分数组[0]<br />         小数部分 = ""<br />     结束 如果<br />     <br />     ' 格式化整数部分<br />     整数部分 = 子文本替换(整数部分, ",", "", 0, 0, 真)<br />     结果 = ""<br />     <br />     循环开始 i = 取文本长度(整数部分) 到 1 步长 -1<br />         如果 (取文本长度(整数部分) - i + 1) % 3 = 1 且 i < 取文本长度(整数部分) 则<br />             结果 = "," + 结果<br />         结束 如果<br />         结果 = 取文本中间(整数部分, i, 1) + 结果<br />     循环结束<br />     <br />     ' 组合结果<br />     如果 小数部分 <> "" 则<br />         返回 结果 + "." + 小数部分<br />     否则<br />         返回 结果<br />     结束 如果<br /> 结束 函数

试一下这个代码 或是 借鉴这个命令代码自行修改，玩E4A的人没几个了

精易论坛龙

易安卓的，这个需要自己写个函数处理滴。

凡尘天尊

RainCharm 发表于 2025-11-13 18:58
[e=4]事件 按钮1.被单击()
    编辑框2.内容 = 格式化金额(编辑框1.内容)
    调试输出(编辑框2.内容)

这个格式化金额怎么来的

人头收割机

到数值（）

凡尘天尊

精易论坛龙 发表于 2025-11-13 16:33
易安卓的，这个需要自己写个函数处理滴。

如果用数据库是否可以实现

凡尘天尊

事件 窗口_转账.创建完毕()
        变量 i 为 整数型       
        变量 data 为 文本型
        变量 result 为 文本型
       
        data = "100000"
       
        判断循环首 取文本长度(data) > 0
               
                result = "," & 取文本右边(data,3) & result
         
                data = 取文本左边(data,取文本长度(data) - 3)
               
        判断循环尾

        result = 子文本替换2(result,0,0,"")
       

结束 事件