Private Const M_Tail As String = "整" Private Const M_Zero As String = "零" Private Const M_Cn As String = M_Zero & "壹贰叁肆伍陆柒捌玖" Private Const M_Yuan As String = "元" Private Const M_FomatStr As String = "万仟佰拾亿仟佰拾万仟佰拾" & M_Yuan & "角分" Private Const M_Start As String = M_Zero & M_Yuan & M_Tail Private Shared ReadOnly M_MaxLength As Integer = M_FomatStr.Length
Public Shared Function ConvertToCapsString()Function ConvertToCapsString(ByVal Money As Double) As String
Dim i, Max As Integer Dim NZero As Integer = 0 Dim StrDec, StrPos, ch1 As String, ch2 As String = Nothing Dim ChnNum As String = Nothing Dim StrOnePosValue As String Dim IntOnePosValue As Integer Money = Math.Round(Math.Abs(Money), 2) '将num取绝对值并四舍五入取2位小数 StrDec = Convert.ToInt64(Money * 100).ToString '将num乘100并转换成字符串形式 (Convert:将一个基本类型转换成另一个基本类型) Max = StrDec.Length '找出最高位 If Max > 15 Then Return "数据过大" Exit Function ElseIf Money = 0 Then ChnNum = M_Start '0的时候，直接输出“零元整” Else StrPos = M_FomatStr.Substring(M_MaxLength - Max) '从字符串的第一个位置开始检索 For i = 0 To Max - 1 '循环取出每一位需要转换的值 StrOnePosValue = StrDec.Substring(i, 1) '取出需转换的某一位的值 IntOnePosValue = Convert.ToInt32(StrOnePosValue) '转换为数字 If i <> Max - 3 AndAlso i <> Max - 7 AndAlso i <> Max - 15 Then '用andalso实现短路原则，提高程序执行效率 If StrOnePosValue = "0" Then '当所取位数不为元、万、亿、万亿上的数字时 ch1 = "" '此位为零，只计入零的个数。不转换。 ch2 = "" NZero = NZero + 1 Else If NZero = 0 Then '此位非零 ch1 = M_Cn.Substring(IntOnePosValue * 1, 1) '前面没有零，追加此位的中文 ch2 = StrPos.Substring(i, 1) NZero = 0 Else ch1 = M_Zero & M_Cn.Substring(IntOnePosValue * 1, 1) '前面已经有零，无论有多少只加一个零，然后追加此位的中文 ch2 = StrPos.Substring(i, 1) NZero = 0 End If End If Else If StrOnePosValue <> "0" AndAlso NZero <> 0 Then '该位是万亿，亿，万，元位等关键位 ch1 = M_Zero & M_Cn.Substring(IntOnePosValue * 1, 1) ch2 = StrPos.Substring(i, 1) NZero = 0 Else If StrOnePosValue <> "0" AndAlso NZero = 0 Then ch1 = M_Cn.Substring(IntOnePosValue * 1, 1) ch2 = StrPos.Substring(i, 1) NZero = 0 Else If StrOnePosValue = "0" AndAlso NZero >= 3 Then ch1 = "" ch2 = "" NZero = NZero + 1 Else If Max > 11 Then ch1 = "" '亿上 NZero = NZero + 1 Else ch1 = "" '亿下 ch2 = StrPos.Substring(i, 1) NZero = NZero + 1 End If End If End If End If End If If i = Max - 11 OrElse i = Max - 3 Then ch2 = StrPos.Substring(i, 1) '如果该位是亿位或元位，则必须写上 End If ChnNum = ChnNum & ch1 & ch2 If i = Max - 1 AndAlso StrOnePosValue = "0" Then ChnNum = ChnNum & M_Tail '最后一位（分）为0时，加上“整” End If Next End If Return ChnNum
End Function Public Shared Function ConvertToCapsString()Function ConvertToCapsString(ByVal Money As String) As String Dim num As Decimal = 0 Try num = Convert.ToDecimal(Money) Catch ex As Exception Return "金额有误" Exit Function End Try Return ConvertToCapsString(num) End Function '==========================================================================================人民币大小写转换
扫一扫
987
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
