谁有完整的人民币转换程序

pfuchenlu 2000-06-26 04:14:00
简单的转换程序很多但是没有看到好的完整的程序不知谁有?
...全文
169 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
w102272 2000-07-13
  • 打赏
  • 举报
 回复
function 大写人民币
lPARA small
DIME d(20)
d(10) = "零"
d(11) = "壹"
d(12) = "贰"
d(13) = "叁"
d(14) = "肆"
d(15) = "伍"
d(16) = "陆"
d(17) = "柒"
d(18) = "捌"
d(19) = "玖"
big = ''

IF TYPE('small') != 'N'
RETUrn 坏结果+"参数必须为数字"
ENDIF

b0 = STR(small,9,2)
B1 = VAL(SUBS(b0, 1, 1))
B2 = VAL(SUBS(b0, 2, 1))
B3 = VAL(SUBS(b0, 3, 1))
B4 = VAL(SUBS(b0, 4, 1))
B5 = VAL(SUBS(b0, 5, 1))
B6 = VAL(SUBS(b0, 6, 1))
B7 = VAL(SUBS(b0, 7, 1))
B8 = VAL(SUBS(b0, 8, 1))
B9 = VAL(SUBS(b0, 9, 1))

IF small>=1000000
RETURN 坏结果+"数值超出界限"
ENDIF
*---------------------------------------
IF small >= 100000 .AND. small <= 999999.99
big = d(B1+10) + "拾"
IF B2 <> 0
big = big + d(B2+10) + "万"
ENDIF
IF B2 = 0
big = big + "万"
ENDIF
IF B3 <> 0
big = big + d(B3+10) + "仟"
ENDIF
IF B4 <> 0
IF B3 <> 0
big = big + d(B4+10) + "佰"
ELSE
big = big + "零" + d(B4+10) + "佰"
ENDIF
ENDIF
IF B5 <> 0
IF B4 <> 0
big = big + d(B5+10) + "拾"
ELSE
big = big + "零" + d(B5+10) + "拾"
ENDIF
ENDIF
IF B6 <> 0
IF B5 <> 0
big = big + d(B6+10) + "元"
ELSE
big = big + "零" + d(B6+10) + "元"
ENDIF
ENDIF
IF B6=0
big = big + "元"
ENDIF
IF B8 <> 0
IF B6 <> 0
big = big + d(B8+10) + "角"
ELSE
IF B5 <>0
big = big + d(B8+10) + "角"
ELSE
big = big + "零" + d(B8+10) + "角"
ENDIF
ENDIF
ENDIF
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF
*---------------------------------------
IF small >= 10000 .AND. small <= 99999.99
big = d(B2+10) + "万"
IF B3 <> 0
big = big + d(B3+10) + "仟"
ENDIF
IF B4 <> 0
IF B3 <> 0
big = big + d(B4+10) + "佰"
ELSE
big = big + "零" + d(B4+10) + "佰"
ENDIF
ENDIF
IF B5 <> 0
IF B4 <> 0
big = big + d(B5+10) + "拾"
ELSE
big = big + "零" + d(B5+10) + "拾"
ENDIF
ENDIF
IF B6 <> 0
IF B5 <> 0
big = big + d(B6+10) + "元"
ELSE
big = big + "零" + d(B6+10) + "元"
ENDIF
ENDIF
IF B6=0
big = big + "元"
ENDIF
IF B8 <> 0
IF B6 <> 0
big = big + d(B8+10) + "角"
ELSE
IF B5 <>0
big = big + d(B8+10) + "角"
ELSE
big = big + "零" + d(B8+10) + "角"
ENDIF
ENDIF
ENDIF
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF

*---------------------------------------
IF small >= 1000 .AND. small <= 9999.99
big = d(B3+10) + "仟"
IF B4 <> 0
big = big + d(B4+10) + "佰"
ENDIF
IF B5 <> 0
IF B4 <> 0
big = big + d(B5+10) + "拾"
ELSE
big = big + "零" + d(B5+10) + "拾"
ENDIF
ENDIF
IF B6 <> 0
IF B5 <> 0
big = big + d(B6+10) + "元"
ELSE
big = big + "零" + d(B6+10) + "元"
ENDIF
ENDIF
IF B6=0
big = big + "元"
ENDIF
IF B8 <> 0
IF B6 <> 0
big = big + d(B8+10) + "角"
ELSE
IF B5 <>0
big = big + d(B8+10) + "角"
ELSE
big = big + "零" + d(B8+10) + "角"
ENDIF
ENDIF
ENDIF
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF

*---------------------------------------
IF small >= 100 .AND. small <= 999.99
big = big + d(B4+10) + "佰"
IF B5 <> 0
IF B4 <> 0
big = big + d(B5+10) + "拾"
ELSE
big = big + "零" + d(B5+10) + "拾"
ENDIF
ENDIF
IF B6 <> 0
IF B5 <> 0
big = big + d(B6+10) + "元"
ELSE
big = big + "零" + d(B6+10) + "元"
ENDIF
ENDIF
IF B6=0
big = big + "元"
ENDIF
IF B8 <> 0
IF B6 <> 0
big = big + d(B8+10) + "角"
ELSE
IF B5 <>0
big = big + d(B8+10) + "角"
ELSE
big = big + "零" + d(B8+10) + "角"
ENDIF
ENDIF
ENDIF
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF

*---------------------------------------
IF small >= 10 .AND. small <= 99.99
big = big + d(B5+10) + "拾"
IF B6 <> 0
IF B5 <> 0
big = big + d(B6+10) + "元"
ELSE
big = big + "零" + d(B6+10) + "元"
ENDIF
ENDIF
IF B6=0
big = big + "元"
ENDIF
IF B8 <> 0
IF B6 <> 0
big = big + d(B8+10) + "角"
ELSE
IF B5 <>0
big = big + d(B8+10) + "角"
ELSE
big = big + "零" + d(B8+10) + "角"
ENDIF
ENDIF
ENDIF
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF

*---------------------------------------
IF small >= 1 .AND. small <= 9.99
big = big + d(B6+10) + "元"
IF B8 <> 0
IF B6 <> 0
big = big + d(B8+10) + "角"
ELSE
IF B5 <>0
big = big + d(B8+10) + "角"
ELSE
big = big + "零" + d(B8+10) + "角"
ENDIF
ENDIF
ENDIF
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF

*---------------------------------------
IF small >= .1 .AND. small <= .99
big = big + d(B8+10) + "角"
IF B9 <> 0
IF B8 <> 0
big = big + d(B9+10) + "分"
ELSE
big = big + "零" + d(B9+10) + "分"
ENDIF
ENDIF
ENDIF

*---------------------------------------
IF small >= .01 .AND. small <= .09
big = big + d(B9+10) + "分"
ENDIF

IF small = 0
big = '零分'
ENDIF

big = big + "整"
RETU big

wangjue28 2000-07-13
  • 打赏
  • 举报
 回复
给我50分，我现给你写，如果可以，email我
pfuchenlu 2000-07-12
  • 打赏
  • 举报
 回复
为何只有说的没有做的.
lsl 2000-07-11
  • 打赏
  • 举报
 回复
我有请与我联系
wangjue28 2000-07-11
  • 打赏
  • 举报
 回复
其实程序一点都不难,何不自己动手呢?
Sunsrain 2000-06-27
  • 打赏
  • 举报
 回复
我有，付money吗？
Delphi 人民币金额转换例程.rar
Delphi 人民币金额转换例程，类似程序比较多，本款代码是从一个Delphi书籍中整理出来的范例，在编写的过程中，对小数进行四舍五入，运行的效果可参见测试截图所示。 　　详细的代码请下载本完整实例查看吧。
人民币金额大写数字转换器
1,可转换万亿以内的人民币金额数字 2,可转换到小数点后2位,精确到分,后面直接舍去,没做四舍五入 3,本程序未作完整字符过滤,请勿尝试无关字符 4,输入的金额可以带逗号比如123,456,000 也可以不带逗号 官方网站:http://www.zhantool.com/daxie/
Android 货币转换
简单的安卓货币转换作业 双货币 欧元与美元 完整代码 使用Eclipse开发 直接导入即可使用
高到垓位低到毫的　人民币金额小写转大写
可以实现高到垓位低到毫的　人民币金额小写转大写　Ｃ#完整的程序。
Access97繁简转换工具
说 明： 〖ACCESS97的繁简转换工具〗说明文件

ACCESS97的繁简转换工具，安装之前必须保证你已经安装了OFFICE97中的ACCESS97，否则无法运行，此工具暂时只对ACCESS97的数据转换，ACCESS2000未做测试(在下一个版本会得到支持)，如果你想对ACCESS2000的数据进行转换，你可以先将ACCESS2000转到ACCESS97，然后再用此工具转换。此转换工具可以转换ACCESS97数据库中所有的表、窗体、报表、模块及它们的属性，说明等。详细功能请参见软件。

一、【主要功能】
1. 可以实现繁简双向转换，可在繁简体WINDOWS下运行，界面漂亮。
2. 可以转换整个应用程序的标题
3. 可以转换MDB中所有的表，包括表的名称，表的说明、表的所有字段
表的字段的默认值，字段的标题，字段的内容等
4. 可以转换链接表中的内容以及标题，链接表的说明。
5. 可以转换所有窗体，包括窗体的说明、窗体的标题，窗体里的控件，控件的标题，包括子窗体里的控件，数据子窗体的标题等。
6. 可以转换所有的报表，包括报表的说明、报表的标题，报表里的内容，包括子报表里的内容等。
7. 可以转换所有的类模块的程序及类模块的说明等
8. 你可自由选择要转换的内容，例如可选择只转换表和窗体，或只转换表的内容，而不转换字段的标题等等
9. 转换过程中可以查看正在转换的内容及已转换的时间，转换完后可打印转换结果报表。

二、文件列表

setup.exe 安装程序

三、〖ACCESS97的繁简转换工具〗使用方法

1. 确保你已经安装了access97
2. 确保你使用的是windows98 (windowsNT/2000未测试过，估计应该也可以）
3. 双击setup.exe安装 安装完成后会创建快捷方式，双击运行即可
4. 先备份你原来的ACCESS97数据文件(因为转换后的文件会复盖原文件)
4. 选择你要转换的ACCESS97数据文件(MDB格式)
5. 选择你要转换的内容（参数设置）
6. 按[转换繁体]或[转换简体]按钮
7. 耐心等待，转换完毕后系统会提示已转换成功
8. 你可打开转换后的MDB文件查看转换后的效果





四、错误反馈

1. 如果你发现软件中的错误，欢迎你反馈给作者。


五、【使用许可/LICENSE】

请仔细阅读以下使用许可，如果您不同意以下任何一点，请
立即停止使用此软件。

1.〖ACCESS97的繁简转换工具〗的作者王宇虹授予您对此版本的最终用户使用
许可权;
2.您不能对软件作任何的软件反向工程,如反汇编,跟踪等;
3.您可以分发此软件,但不能收取任何费用或用于商业目的,
同时,必须保证所分发的软件包含全部文件,并且不作任何
修改;分发的软件应该至少包括我软件所附带的README.txt
4.本软件不包含任何使用保证,不能保证适用或不出故障,由
于此软件是免费提供,因此作者不对您或别的用户使用此
软件所带来的理论上或实际的损失负责;
5.如果您用了此软件就等于您同意以上几点许可;
6.如果你觉的该软件好用,请发一封Email给作者表示感谢,这些支持将会使作者
写出更好软件,谢谢!

六、【软件注册费用】
完全免费!! 只要你将系列号email给作者，作者即会发送密码给你
本软件所有功能都可以免费使用，完全没有限制。

七、【源码费用】

如果你对此软件的源码感兴趣，你可以向作者购买。

软件的所有完整源码费用为人民币150元

之所以定价这么低，主要是想让更多人可以从一个已有的
源码开始，写出一个更好的程序。

我想对源码的费用应该是对作者辛勤劳动的一种肯定，而且是对中国所有免费软件编写者的一种鼓励!

你可以到我的主页
http://www.zstmcomputer.com
或 http://tmcomputer.6to23.com

免费获得其它完整的应用软件或一些已公开的源码。

电子信箱:wang_yu_hong@163.net .--.
tmtony@21cn.com

汇款地址如下:
邮编:528400
汇款地址:广东省中山市莲兴路35号城市花园宝富阁2栋201
收款人:王宇虹

汇款后请Email通知我


八、【主要技术】
具体请参照程序


系统编写开始时间: 18/05/2001
完成及验收时间: 28/06/2001

九、【感谢】
此软件的诞生得到了同事以及客户的支持,在此表示感谢。
　
MS-SQL Server

34,590

社区成员

254,589

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章