主题:求教!急急急!
漫步草原
[专家分:0] 发布于 2009-10-13 10:40:00
各位老师,我想求教如何在报表中打印出带有人民币符号的金额小写。如:¥123,456,789.00
最后更新于:2009-10-13 12:59:00
回复列表 (共6个回复)
沙发
sywzs [专家分:5650] 发布于 2009-10-14 05:38:00
"¥"+allt(je) &&如果je是字符型
"¥"+allt(str(je,18,2)) &&如果je是数值型
板凳
漫步草原 [专家分:0] 发布于 2009-10-14 11:53:00
还没有解决问题,不过还是要谢谢你!
je是数值型的,"¥"+allt(str(je,18,2)) 实现的是¥123456789.00 不能实现¥123,456,789.00
3 楼
wangliwei [专家分:0] 发布于 2009-10-14 13:39:00
"¥"+allt(str(je,18,2)) 实现的是¥123456789.00 不能实现¥123,456,789.00
"¥"+right(alltim(str(je)),[color=FF0000]6[/color])+","+right(alltim(str(je)),[color=FF0000]9[/color])+","+right(alltim(str(je)),[color=FF0000]12[/color])+","+...........依次类推看你有几位写几位。str(je)是将数值型转化为字符型,再加alltrim是去除前后空格。right是从字符串中右边取6个字符。[color=FF0000]注意:必须保证你je字段小数位数为2位,否则上述代码错误。[/color]
4 楼
漫步草原 [专家分:0] 发布于 2009-10-15 11:03:00
谢谢!
5 楼
dfwxj [专家分:270] 发布于 2009-10-16 01:39:00
看糊涂了,来个简单的
sje='¥'+subs(str(je,15,2),1,3)+','+subs(str(je,15,2),4,3)+','+subs(str(je,15,2),7,3)+','+subs(str(je,15,2),10)
sje=strt(sje,' ','')
支持12位整数,两位小数,位数不够自己加
6 楼
dfwxj [专家分:270] 发布于 2009-10-16 01:43:00
再简化一下:
mje=str(je,15,2)
sje='¥'+subs(mje,1,3)+','+subs(mje,4,3)+','+subs(mje,7,3)+','+subs(mje,10)
sje=strt(sje,' ','')
我来回复