人民币大小写转换

人民币是我国的法定货币,尽管我们几乎天天都要接触到人民币或者支票,但是人民币大写怎么写是困扰很多人的问题,尤其是做财务会计工作的朋友,一直被人民币大写金额所困扰。比如:
1、人民币大写金额可以写圆吗
2、大写写不规范,简体与繁体滥用,一、二、三与壹、贰、叁混淆
3、大写金额后面要加“整”字么
4、金额大写零要写吗,怎么写
5、100的人民币大写金额是多少
6、壹佰圆的数字金额小写是多少
7、人民币大写元还是圆
8、只有角、分的支票金额大写如何写
这些问题,往往需要浪费大量的精力来记忆和掌握,如果经常写,重复性的工作既耽误时间,不小心还会出错

人民币大写转换使用方式:

1、打开转换工具

2、选择“数字转大写人民币”

3、填入要转换的金额,比如:123,456.12,点击转化,就可以生成转换结果

壹拾贰万叁仟肆佰伍拾陆圆壹角贰分

4、点击复制,可以将转换结果复制到剪贴板中

5、支持将最大13位整数(万亿)和2位小数(分)的数字金额转换为人民币大写,支持负数

数字小写转换使用方式:

1、同样,先打开工具

2、选择“大写人民币转数字 ”

3、填入要转换的金额,比如:壹拾贰万叁仟肆佰伍拾陆圆壹角贰分,点击转化,就可以生成转换结果

123456.12

4、点击复制,可以将转换结果复制到剪贴板中

5、支持将人民币最大万亿大写和角、分大写金额转换为数字,支持负数

数字转成人民币大写代码 Public Function GetChinaNum(otherNum As Double, Optional isRMB As Boolean, Optional numOption As Boolean, Optional dotNum As Integer) As String On Error Resume Next num = Trim(Str(Int(otherNum))) If isRMB Then numwei = "拾佰仟万拾佰仟亿拾佰仟" numshu = "零壹贰叁肆伍陆柒捌玖拾" Else numwei = "十百千万十百千亿十百千" numshu = "零一二三四五六七八九十" End If If otherNum < 20 And otherNum >= 10 Then num = Right(num, 1) GetChinaNum = Left(numwei, 1) End If For i = 1 To Len(num) bstr = Mid(num, i, 1) If numOption Then GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) Else GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) If bstr = "0" Then If Mid(numwei, Len(num) - i, 1) = "万" Or Mid(numwei, Len(num) - i, 1) = "亿" Then Do While Right(GetChinaNum, 1) = "零" GetChinaNum = Left(GetChinaNum, Len(GetChinaNum) - 1) Loop GetChinaNum = GetChinaNum + Mid(numwei, Len(num) - i, 1) End If Else GetChinaNum = GetChinaNum + Mid(numwei, Len(num) - i, 1) End If GetChinaNum = Replace(GetChinaNum, "零零", "零") End If Next i If numOption = False Then Do While Right(GetChinaNum, 1) = "零" GetChinaNum = Left(GetChinaNum, Len(GetChinaNum) - 1) Loop End If If isRMB Then numrmb = "元角分" GetChinaNum = GetChinaNum + Mid(numrmb, 1, 1) If Val(num) <> otherNum Then num = Trim(Str(Round(otherNum - Val(num), 2))) For i = 2 To Len(num) bstr = Mid(num, i, 1) GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) + Mid(numrmb, i, 1) Next i Else GetChinaNum = GetChinaNum + "整" End If Else If Val(num) <> otherNum Then If dotNum = 0 Then dotNum = 4 num = Trim(CStr(Round(otherNum - Val(num), dotNum))) If GetChinaNum = "" Then GetChinaNum = "零" GetChinaNum = GetChinaNum + "点" For i = 2 To Len(num) bstr = Mid(num, i, 1) GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) Next i End If End If End Function
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值