vb.net编写人民币小写转大写

填写票据和结算凭证.必须做到标准化.规范化.要要素齐全.数字正确.字迹清晰.不错漏.不潦草.防止涂改.中文大写金额数字应用正楷或行书填写.如壹(壹).贰(贰).叁.肆(肆).伍(伍).陆(陆).柒.捌.玖.拾.佰.仟.万(万).亿.元.角.分.零.整(正)等字样.不得用一.二(两).三.四.五.六.七.八.九.十.念.毛.另(或0)填写.不得自造简化字.如果金额数字书写中使用繁体字.如贰.陆.亿.万.圆的.也应受理.

一.中文大写金额数字到"元"为止的.在"元"之后.应写"整"(或"正")字.在"角"之后.可以不写"整"(或"正")字.大写金额数字有"分"的."分"后面不写"整"(或"正")字.

二.中文大写金额数字前应标明"人民币"字样.大写金额数字有"分"的."分"后面不写"整"(或"正")字.

三.中文大写金额数字前应标明"人民币"字样.大写金额数字应紧接"人民币"字样填写.不得留有空白.大写金额数字前未印"人民币"字样的.应加填"人民币"三字.在票据和结算凭证大写金额栏内不得预印固定的"仟.佰.拾.万.仟.佰.拾.元.角.分"字样.

四.阿拉伯数字小写金额数字中有"0"时.中文大写应按照汉语语言规律.金额数字构成和防止涂改的要求进行书写.举例如下:

1·阿拉伯数字中间有"0"时.中文大写要写"零"字.如￥1409.50.应写成人民币陆壹仟肆佰零玖元伍角.

2·阿拉伯数字中间连续有几个"0"时.中文大写金额中间可以只写一个"零"字.如￥6007.14.应写成人民币陆仟零柒元壹角肆分.

3·阿拉伯金额数字万位和元位是"0".或者数字中间连续有几个"0".万位.元位也是"0".但千位.角位不是"0"时.中文大写金额中可以只写一个零字.也可以不写"零"字.如￥1680.32.应写成人民币壹仟陆佰捌拾元零叁角贰分.或者写成人民币壹仟陆佰捌拾元叁角贰分.又如￥107000.53.应写成人民币壹拾万柒仟元零伍角叁分.或者写成人民币壹拾万零柒仟元伍角叁分.

4·阿拉伯金额数字角位是"0".而分位不是"0"时.中文大写金额"元"后面应写"零"字.如￥16409.02.应写成人民币壹万陆仟肆佰零玖元零贰分,又如￥325.04.应写成人民币叁佰贰拾伍元零肆分.

五.阿拉伯小写金额数字前面.均应填写人民币符号"￥".阿拉伯小写金额数字要认真填写.不得连写分辨不清.

六.票据的出票日期必须使用中文大写.为防止变造票据的出票日期.在填写月.日时.月为壹.贰和壹拾的.日为壹至玖和壹拾.贰拾和叁拾的.应在其前加"零",日为拾壹至拾玖的.应在其前加"壹".如1月15日.应写成零壹月壹拾伍日.再如10月20日.应写成零壹拾月零贰拾日.

七.票据出票日期使用小写填写的.银行不予受理.大写日期未按要求规范填写的.银行可予受理.但由此造成损失的.由出票人自行承担.

代码如下：

    Private Function transnumber(ByVal number) As String'小写转大写'编写者：deepfuture@vip.qq.com'时间：2012-04-11'blog:deepfuture.iteye.comDim numstr As StringDim radixpointlocation As Integer'小写转大写的映射数组Dim numberarray(9) As String'数位数组Dim digitplace(13) As String'币值Dim valuta(2) As String'小数点前Dim strbeforeradix As String'小数点后Dim strafterradix As String'整Dim zheng As String'需要用到的模式匹配Dim strpattern As String'临时用变量Dim tempstr1 As StringDim tempstr2 As StringDim i As Integer'结果字符串Dim transresult As String'转换用相关数组numberarray(0) = "零"numberarray(1) = "壹"numberarray(2) = "贰"numberarray(3) = "叁"numberarray(4) = "肆"numberarray(5) = "伍"numberarray(6) = "陆"numberarray(7) = "柒"numberarray(8) = "捌"numberarray(9) = "玖"digitplace(0) = "元"digitplace(1) = "拾"digitplace(2) = "佰"digitplace(3) = "仟"digitplace(4) = "万"digitplace(5) = "拾"digitplace(6) = "佰"digitplace(7) = "仟"digitplace(8) = "亿"digitplace(9) = "拾"digitplace(10) = "佰"digitplace(12) = "仟"digitplace(13) = "万"valuta(0) = "元"valuta(1) = "角"valuta(2) = "分"zheng = "整"strbeforeradix = "人民币 "strafterradix = ""'从控件中取得数字值，同时删除千位符","numstr = number.Replace(",", "")'找到小数点位置radixpointlocation = (numstr.IndexOf("."))'开始转换'先转换小数点后的小数If radixpointlocation = -1 Then'数为整数strafterradix = valuta(0) + zhengElse'不是整数，先读取小数部分tempstr1 = Trim(numstr.Substring(radixpointlocation + 1))i = 1For Each tempstr2 In tempstr1strafterradix += numberarray(tempstr2) + valuta(i)i = i + 1Next'处理小数的各种特殊情况strafterradix = strafterradix.Replace("零分", "整")strafterradix = strafterradix.Replace("零角", "零")strafterradix = strafterradix.Replace("零零", "")strafterradix = strafterradix.Replace("零整", "整")If strafterradix.Length = 0 Or strafterradix.Length = 2 Thenstrafterradix &= "整"End IfEnd Iftempstr1 = Trim(numstr).Substring(0, IIf(radixpointlocation = -1, numstr.Length, radixpointlocation))If tempstr1.Length > 13 ThenReturn "数字太大，本程序无法转换" & numstrEnd Ifi = tempstr1.Length - 1For Each tempstr2 In tempstr1strbeforeradix &= numberarray(tempstr2) + digitplace(i)i -= 1Nextstrbeforeradix = strbeforeradix.Replace("零拾", "零")strbeforeradix = strbeforeradix.Replace("零佰", "零")strbeforeradix = strbeforeradix.Replace("零仟", "零")transresult = strbeforeradix + strafterradix'处理多个0的情况Dim findzero As Boolean = FalseDim mystr As String = ""tempstr2 = ""For Each tempstr1 In transresultIf tempstr1 = "零" Thenfindzero = Truemystr = ""ElseIf findzero Thenmystr = "零" & tempstr1findzero = FalseElsemystr = tempstr1End IfEnd Iftempstr2 += mystrNexttempstr2 = tempstr2.Replace("零万", "万")tempstr2 = tempstr2.Replace("零亿", "亿")tempstr2 = tempstr2.Replace("零元", "元")transresult = tempstr2Return transresultEnd Function

演示如下：

vb.net编写人民币小写转大写相关推荐

golang实现人民币小写转大写
2019独角兽企业重金招聘Python工程师标准>>> 使用golang的正则表达式实现人民币小写转大写,代码如下: package mainimport ("regexp ...
人民币小写转换为大写函数
人民币小写转换为大写 <script language=javascript> mymoney=window.prompt("请输入金额:"); </script ...
人民币小写转大写的一般方法
人民币小写转大写的一般方法.还可以 const char* RMB(double rmb) { if(rmb<0) return NULL; static char *CCC[1 ...
英文转中文和人民币小写转大写
public static string PinYin(string mystr) { //指转换一个中文 string tt; if ((mystr.ToUpper().Compar ...
C语言实现人民币小写转大写
这个是很早之前用C语言实现的人民币小写转大写的方法 /************************************************************************* ...
java把小写变大写_用java实现人民币小写变大写的方法
用java语言可以实现人民币小写转换为大写吗?如何实现呢?下面常见的用java实现人民币小写变大写的方法可以说是最精简的了,希望大家可以学习下. 这里介绍一个通过取余的办法来实现将人民币小写转换为大写 ...
php人民币小写转大写函数
发现csdn所用的代码高亮插件也有同样的bug,当代码中含有empty函数时,总是会输出两个.本想在这里发下代码的,一看发出来是错的,还是作罢,以免误导同学.留个链接吧:php人民币小写转大写函数
php人民币小写转大写函数,php 人民币小写怎么转大写
php人民币小写转大写的方法:首先创建一个PHP示例文件:然后通过"function num2rmb($number = 0, $int_unit = '', $is_round=FALSE ...
c语言人民币小写转换成大写,C语言实现人民币小写转大写
这个是很早之前用C语言实现的人民币小写转大写的方法 /************************************************************************* ...

vb.net编写人民币小写转大写

vb.net编写人民币小写转大写相关推荐

最新文章

热门文章