回 帖 发 新 帖 刷新版面

主题:求教!急急急!

各位老师,我想求教如何在报表中打印出带有人民币符号的金额小写。如:¥123,456,789.00

回复列表 (共6个回复)

沙发

"¥"+allt(je)             &&如果je是字符型
"¥"+allt(str(je,18,2))   &&如果je是数值型

板凳

还没有解决问题,不过还是要谢谢你!
je是数值型的,"¥"+allt(str(je,18,2)) 实现的是¥123456789.00 不能实现¥123,456,789.00 

3 楼


"¥"+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 楼

谢谢!

5 楼

看糊涂了,来个简单的

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 楼

再简化一下:
mje=str(je,15,2)
sje='¥'+subs(mje,1,3)+','+subs(mje,4,3)+','+subs(mje,7,3)+','+subs(mje,10)
sje=strt(sje,' ','')

我来回复

您尚未登录,请登录后再回复。点此登录或注册