求助：拆分金额，形成一个一个单独的数字？

宏魔法师 · 发表于 2010-9-24 17:09:13

在财务部经常有单据上要把金额拆分成一个一个单独的数字

比如 1420.21，就要拆成下面这样的。

假设有个窗体，有 Me.总金额=1420.21 一个总金额的文本框，
Me.千万位 Me.百万位 Me.十万位 Me.万位 Me.千位 Me.百位 Me.十位 Me.元位 Me.角位 Me.分位
10个单数字的文本框，要求是没有数字的显示空白，有数字的要对应显示。
请教各位高手，这样代码该如何写？

LeeTien · 发表于 2010-10-3 17:10:02

不建议分开位数
合并处理科学些

zhowgq · 发表于 2010-9-25 07:12:24

本帖最后由 zhowgq 于 2010-9-25 17:02 编辑

我的办法是将下式写入各个文本框数据来源
=IIf((Len([金额]*100)-N)<1,"",Mid([金额]*100,(Len([金额]*100)-N)),1))
分:N=0;角N=1;元N=2......余类推

宏魔法师 · 发表于 2010-9-24 21:32:49

感谢ui mewell tmtony 指点，我试用下。

tmtony · 发表于 2010-9-24 21:02:32

如果你只要2位,就要四舍五入.

宏魔法师 · 发表于 2010-9-24 20:55:33

如果金额小数后大于3位，怎么做呢？
是否要 Round(总金额，2）

mewell · 发表于 2010-9-24 20:24:46

dim je as Integer
je=总金额*100
for n=1 to len(je)
单独数字=mid(je,n,1)
next

ui · 发表于 2010-9-24 20:06:30

for i=1 to len(总金额)
msgbox mid(总金额,i,1)
next

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 求助：拆分金额，形成一个一个单独的数字？

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)