如何实现人民币的大写转换？

2024-08-02 21:46:42

第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：

Function AtoC(a As Currency) As String
' 定义两个字符串，A的值最多是两位小数.
Dim String1 As String

' 如下定义.
Dim String2 As String

' 如下定义.
Dim String3 As String

' 从原A值中取出的值.
Dim I As Integer

' 循环变量.

Dim J As Integer

' A的值乘以100的字符串长度.
Dim Ch1 As String

' 数字的汉语读法.
Dim Ch2 As String

' 数字位的汉字读法.
Dim nZero As Integer

' 用来计算连续的非零数是几个.

String1 = "零壹贰叁肆伍陆柒捌玖"
String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
'MsgBox CStr(a * 100)
If InStr(1, CStr(a * 100), ".") <> 0 Then
err.Raise 5000, , "该函数( AtoC() )只转换两位小数以内的数值!"
End If

J = Len(CStr(a * 100))
String2 = Right(String2, J)

' 取出对应位数的StrING2的值.

For I = 1 To J
String3 = Mid(a * 100, I, 1)

' 取出需转换的某一位的值.
If String3 <> "0" Then
Ch1 = Mid(String1, Val(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = nZero + 1

' 表示本位不为零.
Else
If nZero <> 0 Or I = J - 9 Or I = J - 5 Or I = J - 1 Then
If Right(AtoC, 1) = "零" Then AtoC = Left(AtoC, Len(AtoC) - 1)
Ch1 = "零"
Else
Ch1 = ""
End If

If I = J - 10 Then

' 如果转换的数值需要扩大，则要改动以下表达式 I 的值.
Ch2 = "亿"
ElseIf I = J - 6 Then
If nZero <> 0 Then
Ch2 = "万"
' nZero = 0
End If
ElseIf I = J - 2 Then
Ch2 = "元"
ElseIf I = J Then
Ch2 = "整"
Else
Ch2 = ""
End If
nZero = 0
End If

AtoC = AtoC & Ch1 & Ch2
Next I

AtoC = Replace(AtoC, "零元", "元")
AtoC = Replace(AtoC, "零万", "万")
AtoC = Replace(AtoC, "零亿", "亿")
AtoC = Replace(AtoC, "零整", "整")
' 以上将多余的零去掉

End Function

第二个办法：照下面写就成了！

<%
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"
aa=Request.form("source")
hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
%>

<html>
<head>
<title>精彩春风之数字大小写转换</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

PHP人民币金额数字转中文大写的函数代码

在网上看到一个非常有趣的PHP人民币金额数字转中文大写的函数,其实质就是数字转换成中文大写,测试了一下,非常有趣,随便输个数字,就可以将其大写打印出来,新手朋友们试一下吧,举一反三,还可以写好多有趣的PHP转换函数. 复制代码代码如下: <? function cny($ns) { static $cnums=array("零","壹","贰","叁","肆","伍",
jsp页面调用applet实现人民币的大小写转换

实现方法一 applet实现页面是rmb.jsp,此页面是通过applet来实现人民币小写转换成大写的.此页面有三个变量需要在载入classes的时候进行初始化: <applet type="applet" id="myApplet" codebase = "." name="TestApplet" align="middle" code="lqh.rmb.Applicate.Rmb.cl
人民币数字转换成大写形式

运用了正则表达式的功能,除了可以正确的转换成人民币的大写形式以外,还可以判断输入的形式是否正确有效. 将人民币数字转换成大写形式 function convertCurrency(currencyDigits) { // Constants: var MAXIMUM_NUMBER = 99999999999.99; // Predefine the radix characters and currency symbols for output: var CN_ZERO = "零";
JS实现将人民币金额转换为大写的示例代码

复制代码代码如下: //人民币金额转大写程序 JavaScript版 //CopyRight Bardo QI function numToCny(num){ var capUnit = ['万','亿','万','圆','']; var capDigit = { 2:['角','分',''], 4:['仟','佰','拾','']}; var capNum=['零','壹','贰','叁','肆','伍','陆','柒','捌','玖'
js实现完美兼容各大浏览器的人民币大小写相互转换

/*小写转大写*/ var xcc= "12.22"; document.write(xcc+"=>"+formatRMB(xcc)+"<br/>"); /*大写转小写*/ var rrrr = "壹拾贰元贰角贰分"; document.write(rrrr+"=>"+parseRMB(rrrr)); 输出结果: 12.22=>壹拾贰元贰角贰分壹拾贰元贰角贰分=>12.
如何实现人民币的大写转换？

第一个办法,这个程序可以进行万亿以下的货币金额转换(够用的了吧),其中汉字与数字均按一位计: Function AtoC(a As Currency) As String ' 定义两个字符串,A的值最多是两位小数. Dim String1 As String ' 如下定义. Dim String2 As String ' 如下定义. Dim String3 As String ' 从原A值中取出的值. Dim I As Integer ' 循环变量. Dim J
java实现数字转换人民币中文大写工具

本文实例为大家分享了java实现数字转换人民币中文大写的具体代码,供大家参考,具体内容如下业务场景: 1.在人事业务系统开发的报表打印文书时经常需要将人民币数值转换为大写, 所以用java写了一个通用的大写转换函数. 为了更加方便调用函数的参数使用字符串类型.例如:825.45 转换后:捌佰贰拾伍元肆角伍分 2.在人事业务系统中经常把日期用汉字大写表示,为了方便调用函数,也是使用字符串类型.例如:2018 转换后:二〇一八下面为java代码 public class Data2Zh { fi
python实现人民币大写转换

本文实例为大家分享了python实现人民币大写转换的具体代码,供大家参考,具体内容如下 #!/usr/bin/python # -*- coding:utf-8 -*- # ********* 转换方法介绍 ********* # 将需要转换的数字从右向左,每4位分成一个section,如:24530467103,将该数字拆分后,得到: # 245 3046 7103 (245亿3046万7103) # 对拆分后的数字先按照section进行数字到汉字的转换,然后添加数值单位,如:仟,佰,拾,处
PHP实现驼峰样式字符串(首字母大写)转换成下划线样式字符串的方法示例

本文实例讲述了PHP实现驼峰样式字符串(首字母大写)转换成下划线样式字符串的方法.分享给大家供大家参考,具体如下: 1.如何在php中把驼峰样式的字符串转换成下划线样式的字符串.例:输入是FooBar的话,输出则是foo_bar 以下是用正则的方式去完成,既然用到正则,方法肯定就不只一种,我们看下下面的方式 echo strtolower(preg_replace('/(?<=[a-z])([A-Z])/', '_$1', 'fooBar')); //output:foo_bar echo &quo
python2.x实现人民币转大写人民币

本文实例为大家分享了python实现人民币转大写人民币的具体代码,供大家参考,具体内容如下直接上代码: # -*- coding: utf-8 -*- def changenum( change_number ): format_num = ["零","壹","贰","叁","肆","伍","陆","柒","捌","
C#实现人民币大写转换示例代码

复制代码代码如下: /// <summary>/// 人民币大写/// </summary>/// <param name="input">待转换输入</param>/// <param name="prefix">需要添加人民币前缀</param>/// <exception cref="ArgumentException" />/// <returns
数字金额大写转换器制作代码分享(人民币大写转换)

复制代码代码如下: /// <summary>/// 人民币大写/// </summary>/// <param name="input">待转换输入</param>/// <param name="prefix">需要添加人民币前缀</param>/// <exception cref="ArgumentException" />/// <returns
js实现人民币大写金额形式转换

本文实例为大家分享了js实现金额转大写的相关代码,供大家参考,具体内容如下 function convertCurrency(num) { //转成人民币大写金额形式 var str1 = '零壹贰叁肆伍陆柒捌玖'; //0-9所对应的汉字 var str2 = '万仟佰拾亿仟佰拾万仟佰拾元角分'; //数字位所对应的汉字 var str3; //从原num值中取出的值 var str4; //数字的字符串形式 var str5 = ''; //人民币大写金额形式 var i; //循环变量 v
ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase

LCase:转成小写 UCase:转成大写下面是ASP中的代码,可以直接演示效果的. 复制代码代码如下: <% dim str,str1,str2 str="AbCdEf" str1=LCase(str) str2=UCase(str) Response.write("LCase转换小写"&str1 & ",UCase转换大写" & str2) %> 而.NET中将字符串转换为大写ToUpper(),将字符

如何实现人民币的大写转换？

相关推荐

随机推荐