Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]人民币大写问题。


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

主题：[求助]人民币大写问题。
帅哥哟，离线，有人找我吗？
andy
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00 		回复：（狐狸爸爸）你要什么样的大写，不明白  发帖心情 Post By：2011/8/13 14:15:00 [只看该作者]

例如： CNY 1234.56
SAY CHINESE YUAN ONE THOUSAND TWO HUNDRED AND THIRTY FOUR & FIFTY SIX FEN ONLY
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/8/13 14:50:00 [只看该作者]

學會變通才是硬道理:
Dim S As String
S = EUMoney(1234.56)
If S.Endswith("Dollars") Then
    S=S.Replace("Dollars","ONLY")
Else
    S=S.Replace("Dollars","&")
End If
S= "SAY CHINESE YUAN " & S.Replace("Cents","FEN ONLY").ToUpper
Output.Show(S)
[此贴子已经被作者于2011-8-13 18:37:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
布莱克朱
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：623 积分：3897 威望：0 精华：0 注册：2011/8/3 22:13:00 		  发帖心情 Post By：2011/8/13 20:45:00 [只看该作者]

报表也行?

 回到顶部
帅哥哟，离线，有人找我吗？
andy
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00 		回复：（don）學會變通才是硬道理:Dim S As StringS =...  发帖心情 Post By：2011/8/14 6:30:00 [只看该作者]

谢谢 don ， 在报表中也可以吗？
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/8/14 7:29:00 [只看该作者]

以下是引用andy在2011-8-14 6:30:00的发言：

谢谢 don ， 在报表中也可以吗？


可以

[此贴子已经被作者于2011-8-14 8:41:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
andy
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00 		  发帖心情 Post By：2011/8/18 14:07:00 [只看该作者]


 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:如何改人民币大写.rar
 回到顶部
帅哥哟，离线，有人找我吗？
andy
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：1855 威望：0 精华：0 注册：2011/4/19 9:49:00 		  发帖心情 Post By：2011/8/18 14:09:00 [只看该作者]

 

请高手帮我改人民币的英文大写。谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
紙上不談兵
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00 		  发帖心情 Post By：2011/8/18 14:30:00 [只看该作者]

1.Excel模板原公式改为:<金额大写>;

2.按钮代码:
Dim v As Double = Tables("出库明细").Compute("sum(金额)")
Dim S As String = EUMoney(v)
If S.Endswith("Dollars") Then
    S=S.Replace("Dollars","ONLY")
Else
    S=S.Replace("Dollars And","&")
End If
S= "SAY CHINESE YUAN " & S.Replace("Cents","FEN ONLY").ToUpper

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库明细.xls")
Book.Marks.Add("金额大写",s)
Dim fl As String = ProjectPath & "Reports\出库明细.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2011-8-18 14:36:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/8/18 14:41:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:出库明细.xls
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/8/18 14:52:00 [只看该作者]

EXECL可以直接上传了?

 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06152 秒, 6 次数据查询