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

pfuchenlu 2000-06-26 04:14:00
简单的转换程序很多但是没有看到好的完整的程序不知谁有?
...全文
165 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/
JavaSE基础视频精讲①：环境配置和二进制转换
本课程适用于零基础小白快速入门Java语言技术，通过课程学习可以清晰了解Java开发的环境配置和二进制转换。课程配套完整的（笔记+代码+作业）课程主要分为：1.软件开发的常识2.Java语言的简介3.Java程序开发前的准备工作4.Java程序的运行机制5.第一个Java程序6.注释的使用7.Java编码规范8.API文档的简单使用9.关键字和标识符10.进制的相关概念11.进制之间的相互转换112.进制之间的相互转换213.原码反码以及补码
Android 货币转换
简单的安卓货币转换作业 双货币 欧元与美元 完整代码 使用Eclipse开发 直接导入即可使用
高到垓位低到毫的　人民币金额小写转大写
可以实现高到垓位低到毫的　人民币金额小写转大写　Ｃ#完整的程序。
MS-SQL Server

34,576

社区成员

254,588

社区内容

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

加载中

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

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

+ 用AI写文章