Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[建议]人民币大写的问题

1楼
blny 发表于:2008/9/28 11:25:00
如题:
Dim Currency as String
Currency = CUMoney(12345.50)
Output.Show(Currency)
  

结果:壹万贰千叁佰肆拾伍圆伍角
 
因现银行要求是:壹万贰千叁佰肆拾伍圆伍角
(请贺老改一下,易表的可以正常转换为以上格式的)
2楼
贺老六 发表于:2008/9/28 11:27:00
可以自己加上:

Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)

有人需要,有人不需要,去掉比加上更费事,现在这样更好
3楼
blny 发表于:2008/9/28 11:32:00

没理由我打一张换一种格式的吧..

4楼
贺老六 发表于:2008/9/28 12:09:00
以下是引用blny在2008-9-28 11:32:00的发言:

没理由我打一张换一种格式的吧..


不明白你的意思:

Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)

这个代码是通用,不存在打一张换一种格式的问题。
除了编码的时候多写了几个字符,其余和易表并没有别的差别

5楼
blny 发表于:2008/9/28 12:27:00
现有一列数据要转换为大写如下:
12345.00
12345.05
12345.50
11111
.....


Dim Currency as String
Currency = CUMoney(12345.00)
Output.Show(Currency)
  

结果:壹万贰千叁佰肆拾伍圆整 
    

Dim Currency as String
Currency = CUMoney(12345.05)
Output.Show(Currency)
  

结果:壹万贰千叁佰肆拾伍圆零分
狐表转换的以上二种情况都可符合银行要求

只有以下的不符合要求:
Dim Currency as String
Currency = CUMoney(12345.50)
Output.Show(Currency)
  

结果:壹万贰千叁佰肆拾伍圆伍角
银行要求的是: 壹万贰千叁佰肆拾伍圆伍

可能原来我没讲清楚,引起误会


6楼
blny 发表于:2008/9/28 12:30:00
楼上少了个角字应为
银行要求的是: 壹万贰千叁佰肆拾伍圆伍角
7楼
贺老六 发表于:2008/9/28 13:46:00
你原来的是这样的:
rx.Text = CurRow("大写金额")

如果现在不要大写金额这一列,只有实际的金额这一列,只需改为:

rx.Text = CUMoney(CurRow("金额")) & "整"

这样比专门则增加一个大写金额列,要好得多。

如果我举个例子:

Dim d As integer
d = Year($"1971-9-17")
Output.show(d)

难不成报表中需要打印年份的时候,需要每一行单独编码去提取年份?

[此贴子已经被作者于2008-9-28 13:48:38编辑过]
8楼
blny 发表于:2008/9/28 15:50:00

图片点击可在新窗口打开查看此主题相关图片如下:自定义3.jpg
图片点击可在新窗口打开查看
9楼
贺老六 发表于:2008/9/28 16:00:00
那说说明,整数自动加"整"了
所以直接这样就行:
rx.Text = CUMoney(CurRow("金额"))

有角分的本来就不应该有“整”字的。

如果一定要:

rx.Text = CUMoney(CurRow("金额"))
If rx.Text.EndsWith("整") = False Then
    rx.Text = rx.Text & "整"
End If



10楼
blny 发表于:2008/9/28 16:30:00

你易表中的是可以转换的 不信的你可用易表中试一下啊

共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.