Foxtable(狐表)用户栏目专家坐堂 → [建议]人民币大写的问题


  共有21024人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
blny
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
[建议]人民币大写的问题  发帖心情 Post By:2008/9/28 11:25:00 [显示全部帖子]

如题:
Dim Currency as String
Currency = CUMoney(12345.50)
Output.Show(Currency)
  

结果:壹万贰千叁佰肆拾伍圆伍角
 
因现银行要求是:壹万贰千叁佰肆拾伍圆伍角
(请贺老改一下,易表的可以正常转换为以上格式的)

 回到顶部
帅哥哟,离线,有人找我吗?
blny
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
  发帖心情 Post By:2008/9/28 11:32:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
blny
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
  发帖心情 Post By: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)
  

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

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



 回到顶部
帅哥哟,离线,有人找我吗?
blny
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
  发帖心情 Post By:2008/9/28 12:30:00 [显示全部帖子]

楼上少了个角字应为
银行要求的是: 壹万贰千叁佰肆拾伍圆伍角

 回到顶部
帅哥哟,离线,有人找我吗?
blny
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
  发帖心情 Post By:2008/9/28 15:50:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:自定义3.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
blny
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
  发帖心情 Post By:2008/9/28 16:30:00 [显示全部帖子]

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


 回到顶部