实现货币金额中文大写转换的程序

原创 2004年05月30日 17:00:00

今天整理文件时发现了以前写的货币金额中文转换(转换一亿亿元以下数目的货币)的代码,帖出来与大家共享:

 

Function daxie(money As String) As String '
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码
Const letter = "0123456789sbqwy.zjf" '定义汉字缩写
Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分" '定义大写汉字
Dim temp As String
temp = money
If InStr(temp, ".") > 0 Then temp = Left(temp, InStr(temp, ".") - 1)

If Len(temp) > 16 Then MsgBox "数目太大,无法换算!请输入一亿亿以下的数字", 64, "错误提示": Exit Function '只能转换一亿亿元以下数目的货币!

x = Format(money, "0.00") '格式化货币
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z"          '***元整
Else
 y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f"     '*元*角*分
 End If
y = Replace(y, "0q", "0") '避免零千(如:40200肆萬零千零贰佰)
y = Replace(y, "0b", "0") '避免零百(如:41000肆萬壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如:204贰佰零拾零肆)

Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免双零(如:1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零億(如:210億     贰佰壹十零億)
y = Replace(y, "0w", "w") '避免零萬(如:210萬     贰佰壹十零萬)
y = IIf(Len(x) = 5 And Left(y, 1) = "1", Right(y, Len(y) - 1), y) '避免壹十(如:14壹拾肆;10壹拾)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如:20.00贰拾零圆;0.12零圆壹角贰分)

For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大写汉字
Next
daxie = y
End Function

Private Sub Command3_Click()
Debug.Print  daxie("6218212212309322.3238") ' return: 陆仟贰佰壹拾捌萬贰仟壹佰贰拾贰億壹仟贰佰叁拾萬玖仟叁佰贰拾贰圆叁角贰分
End Sub

ABAP--将数字金额转换为人民币大写字符串(增加UNICODE版本)

1、No Uncode VersionFUNCTION Z_CONVERT_NUMERIC_TO_CHINESE.*"-----------------------------------------...
  • CompassButton
  • CompassButton
  • 2006年09月05日 16:10
  • 4587

数字货币转换成大写货币金额的JAvascript代码

用JavaScript编写了一功能函数,完成如下功能: 1、对一给定字符串,如:1234.55,转换成正确的中文货币描述:如:人民币壹仟贰佰叁拾四元五角五分 2、输入的字符串形式可以是以下几种:带分隔...
  • yourdecision
  • yourdecision
  • 2006年10月24日 15:42
  • 1010

java实现数字金额转换成汉字大写金额

我们经常在做项目的财务报表,需要打印发票等情况时需要用到小写的财务金额要转换成汉字的大写金额,下面就是实现该功能的代码...
  • software7503
  • software7503
  • 2017年07月10日 20:21
  • 343

Access自定义函数(人民币大写)

人民币大写函数:整数不超过13
  • yyb63915
  • yyb63915
  • 2014年11月21日 11:04
  • 1353

Java中实现数字金额到中文大写字符的转换!!

最近用到了数值转成大写人民币的功能,在网上找了一下只有C++版的,好容易找到一个java版的竟然收费!!没办法就自己弄一个出来,想必用到该功能的人肯定少,就拿出来与大家共享!! /**  * Titl...
  • netfalcon
  • netfalcon
  • 2004年03月09日 23:44
  • 2495

水晶报表人民币大写转换函数

 当您需要做一个诸如出入库单的报表时,经常会用到人民币总金额的汇总,并希望打印出来的时候有人民币的大写,所以您需要插入一个sum函数来进行合计,那么合计出来的阿拉伯数字的人民币如何转换成中文大写呢?以...
  • EricLiang
  • EricLiang
  • 2007年10月28日 19:52
  • 2250

将数字转为中文金额的大写方式(C++版)

/**   * 程序目的:   *   从命令行接收一个数,并将其转化为中文金额的大写方式(C++版)   * 例如 123.45 --> 壹佰贰拾叁元肆角伍分   * @author Lov...
  • u010944926
  • u010944926
  • 2014年03月08日 15:57
  • 3248

阿拉伯数字转换成英文大写币别(格式化逗号分隔符后传入)

简单实现
  • xingyunLOST
  • xingyunLOST
  • 2015年10月23日 09:25
  • 694

Delphi货币类型转中文大写金额

在Delphi中,为了实现货币数值运算中的严格精度要求,内部把货币类型数据当作一个放大10000倍的64位整数来处理。这样根据64位整数的范围,可以得出货币类型Currency的范围是 [-92233...
  • tht2009
  • tht2009
  • 2017年06月15日 15:03
  • 479

java实现将整数转化为中文大写金额

在日常生活中,我们经常会将阿拉伯数字转化为中文大写的情况:"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾", "佰", "仟", "万", "...
  • xiaojimanman
  • xiaojimanman
  • 2015年11月02日 11:56
  • 2257
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:实现货币金额中文大写转换的程序
举报原因:
原因补充:

(最多只允许输入30个字)