繁體中文当前位置: 首页 > 图文教程 > .Net技术 > VB．NET > 实现将数字转换为汉字大写
- VB．NET
- 大话“基于对象”与“面向对象”
- VB 内存分配与流读写 代码
- VB.NET语法基础
- vb.net与c#.net区别
- 用VB.Net读写数据库
- 百万程序员的苦恼－选择VB.NET还是C#
- VB.net 多线程实例
- VB.NET也区会大小写
- VB.NET 2005编写定时关机程序
- VB.NET控件编程定制拦截击键动作
- 如何实现.net程序的进程注入
- VB.NET 菜单设计初级入门
- VB.NET中关于DataGrid颜色的自定义
- VB网络编程中Winsock的使用
- VB.net编程教程:编写文字加解密程序
- VB.NET中快速访问注册表技巧
- VB.NET：在VB.NET中串行化对象
- VB.NET：在 VB.NET 编程中使用数组
- VB.NET：VB.NET路在何方？
- 大话“基于对象”与“面向对象”
VB．NET 中的 实现将数字转换为汉字大写
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 86 ::
收藏到网摘: n/a
在VB.net中如何实现将数字转换为汉字大写的人民币格式或数字格式。
'decimaltocn [模块名：modDec2cn]
'制作：COSCO
'Email: [email protected]
'CopyRight(R): OceanStudio GuangZhou,China 2003年7月
'------------------------------------------------------------------
'Imports System.Math
Module modDec2cn
Public Function mf_dec2cn(ByVal number As Decimal, ByVal cntype As Integer) As String
'--参数说明----------------------------------------------------
'输入数字类型变量：number
'返回字符串： cnstr
'参数整型变量：cntype: =0时，转换为人民币，=1时，转换为数字
'<返回数字不大于18位精确值>
'如：输入 1999.23
'转换为人民币：壹仟玖佰玖拾玖元贰角叁分
'转换为数字为：壹仟玖佰玖拾玖点贰叁
'cnstr=mf_dec2cn(number,cntype)
'-------------------------------------------------------------
Dim numstr() As String = _{"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾"}
'定义取整数部分,小数部分,大写整数部分,大写小数部分的字符串变量
Dim str1, str2, intstr, decstr As String
Dim num() As String '各个数位段,即每四位为一段
Dim n() As String '各位数字
Dim number1, number2, number3 As String '定义数字的三个数位段
Dim pointpos As Integer
ReDim num(3)
ReDim n(7)
If cntype = 0 Then
'如果转换为人民币大写，小数位数只取2位
number = Math.Round(number, 2) 'Round函数位于 System.Math 命名空间
If IsDBNull(number) Then
MessageBox.Show("转换为人民币大写的数字整数位数最大17位!", "错误", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return ""
End If
End If
pointpos = InStr(Str(number), ".")
If pointpos = 0 Then '输入值为纯整数
str1 = Str(number)
str2 = ""
Else
'输入值为浮点数
str1 = Left(Str(number), pointpos - 1) '取整数部分
str2 = Right(Str(number), Len(Str(number)) - pointpos) '取小数部分
End If
'If CDec(str2) = 0 Then '如果小数部分为0，则取消小数部分的分析
' str2 = ""
'End If
Select Case Len(str1)
Case Is > 8 '分析整数部分在100000000以上的
num(0) = Left(str1, Len(str1) - 8) '按每4位为一段拆分成三段，逐段分析
num(1) = Left(Right(str1, 8), 4)
num(2) = Right(str1, 4)
number1 = mf_dec2cn(CDec(num(1)), 1) + "亿" '若干亿
If Mid(num(1), 1, 1) = "0" Then '分析千万位
n(0) = numstr(1) '若该位为0，则数位赋值“零”
Else
n(0) = numstr(Int(Mid(num(1), 1, 1)) + 1) + "仟"
End If
If Mid(num(1), 2, 1) = "0" Then '分析百万位
If Mid(num(1), 1, 1) = "0" Then
n(1) = "" '若千万位为0，则该位为空
Else
n(1) = numstr(1)
End If
Else
n(1) = numstr(Int(Mid(num(1), 2, 1)) + 1) + "佰"
End If
If Mid(num(1), 3, 1) = "0" Then '分析十万位
If Mid(num(1), 2, 1) = "0" Then
n(2) = ""
Else
n(2) = numstr(1)
End If
Else
n(2) = numstr(Int(Mid(num(1), 3, 1)) + 1) + "拾"
End If
If Mid(num(1), 4, 1) = "0" Then '分析万位
n(3) = ""
Else
n(3) = numstr(Int(Mid(num(1), 4, 1)) + 1)
End If
If Right(num(1), 3) = "000" Then '当末尾有000时
n(1) = ""
n(2) = ""
n(3) = ""
End If
If Right(num(1), 2) = "00" Then '当末尾有00时
n(2) = ""
n(3) = ""
End If
If Right(num(1), 1) = "0" Then '当末尾有0时
n(3) = ""
End If
If Mid(num(2), 1, 1) = "0" Then '分析千位
n(4) = numstr(1)
Else
n(4) = numstr(Int(Mid(num(2), 1, 1)) + 1) + "仟"
End If
If Mid(num(2), 2, 1) = "0" Then '分析百位
If Mid(num(2), 1, 1) = "0" Then
n(5) = ""
Else
n(5) = numstr(1)
End If
Else
n(5) = numstr(Int(Mid(num(2), 2, 1)) + 1) + "佰"
End If
If Mid(num(2), 3, 1) = "0" Then '分析十位
If Mid(num(2), 2, 1) = "0" Then
n(6) = ""
Else
n(6) = numstr(1)
End If
Else
n(6) = numstr(Int(Mid(num(2), 3, 1)) + 1) + "拾"
End If
If Mid(num(2), 4, 1) = "0" Then '分析个位
n(7) = ""
Else
n(7) = numstr(Int(Mid(num(2), 4, 1)) + 1)
End If
'
If Right(num(2), 3) = "000" Then '当末尾有000时
n(5) = ""
n(6) = ""
n(7) = ""
End If
If Right(num(2), 2) = "00" Then '当末尾有00时
n(6) = ""
n(7) = ""
End If
If Right(num(2), 1) = "0" Then '当末尾有0时
n(7) = ""
End If
'
'统计
number2 = n(0) + n(1) + n(2) + n(3) + "万"
If num(2) = "0000" Then
number3 = ""
If num(1) = "0000" Then
number2 = ""
End If
Else
If num(1) = "0000" Then
number2 = numstr(1)
End If
number3 = n(4) + n(5) + n(6) + n(7)
End If
'取得整数位值
intstr = number1 + number2 + number3
Case 5 To 8 '分析整数部分在10000~99999999之间的
num(0) = Left(str1, Len(str1) - 4) '取得第一段（千万位到万位）
'不足4位,用'0'补齐
If Len(num(0)) = 3 Then
num(0) = "0" + num(0)
End If
If Len(num(0)) = 2 Then
num(0) = "00" + num(0)
End If
If Len(num(0)) = 1 Then
num(0) = "000" + num(0)
End If
num(1) = Right(str1, 4) '取得第二段（千位到个位）
number1 = ""
If Mid(num(0), 1, 1) = "0" Then '分析千万位
n(0) = ""
Else
n(0) = numstr(CInt(Mid(num(0), 1, 1)) + 1) + "仟"
End If
If Mid(num(0), 2, 1) = "0" Then '分析百万位
If Mid(num(0), 1, 1) = "0" Then
n(1) = ""
Else
n(1) = numstr(1)
End If
Else
n(1) = numstr(CInt(Mid(num(0), 2, 1)) + 1) + "佰"
End If
If Mid(num(0), 3, 1) = "0" Then '分析十万位
If Mid(num(0), 2, 1) = "0" Then
n(2) = ""
Else
n(2) = numstr(1)
End If
Else
n(2) = numstr(CInt(Mid(num(0), 3, 1)) + 1) + "拾"
End If
If Mid(num(0), 4, 1) = "0" Then '分析万位
n(3) = ""
Else
n(3) = numstr(CInt(Mid(num(0), 4, 1)) + 1)
End If
'
If Right(num(0), 3) = "000" Then '当末尾有000时
n(1) = ""
n(2) = ""
n(3) = ""
End If
If Right(num(0), 2) = "00" Then '当末尾有00时
n(2) = ""
n(3) = ""
End If
If Right(num(0), 1) = "0" Then '当末尾有0时
n(3) = ""
End If
'
If Mid(num(1), 1, 1) = "0" Then '分析千位
n(4) = numstr(1)
Else
n(4) = numstr(CInt(Mid(num(1), 1, 1)) + 1) + "仟"
End If
If Mid(num(1), 2, 1) = "0" Then '分析百位
If Mid(num(1), 1, 1) = "0" Then
n(5) = ""
Else
n(5) = numstr(1)
End If
Else
n(5) = numstr(CInt(Mid(num(1), 2, 1)) + 1) + "佰"
End If
If Mid(num(1), 3, 1) = "0" Then '分析十位
If Mid(num(1), 2, 1) = "0" Then
n(6) = ""
Else
n(6) = numstr(1)
End If
Else
n(6) = numstr(CInt(Mid(num(1), 3, 1)) + 1) + "拾"
End If
If Mid(num(1), 4, 1) = "0" Then '分析个位
n(7) = ""
Else
n(7) = numstr(CInt(Mid(num(1), 4, 1)) + 1)
End If
'
If Right(num(1), 3) = "000" Then '当末尾有000时
n(5) = ""
n(6) = ""
n(7) = ""
End If
If Right(num(1), 2) = "00" Then '当末尾有00时
n(6) = ""
n(7) = ""
End If
If Right(num(1), 1) = "0" Then '当末尾有0时
n(7) = ""
End If
'
'统计
If num(1) = "0000" Then
number3 = ""
Else
number3 = n(4) + n(5) + n(6) + n(7)
End If
number2 = n(0) + n(1) + n(2) + n(3) + "万"
'取得整数位值
intstr = number1 + number2 + number3
Case Else '分析整数部分不到10000的
num(0) = str1
'不足4位,用'0'补齐
If Len(num(0)) = 3 Then
num(0) = "0" + num(0)
End If
If Len(num(0)) = 2 Then
num(0) = "00" + num(0)
End If
If Len(num(0)) = 1 Then
num(0) = "000" + num(0)
End If
number1 = ""
number2 = ""
If Mid(num(0), 1, 1) = "0" Then '分析千位
n(0) = ""
Else
n(0) = numstr(CInt(Mid(num(0), 1, 1)) + 1) + "仟"
End If
If Mid(num(0), 2, 1) = "0" Then '分析百位
If Mid(num(0), 1, 1) = "0" Then
n(1) = ""
Else
n(1) = numstr(1)
End If
Else
n(1) = numstr(CInt(Mid(num(0), 2, 1)) + 1) + "佰"
End If
If Mid(num(0), 3, 1) = "0" Then '分析十位
If Mid(num(0), 2, 1) = "0" Then
n(2) = ""
Else
n(2) = numstr(1)
End If
Else
n(2) = numstr(CInt(Mid(num(0), 3, 1))) + "拾" '
End If
If Mid(num(0), 4, 1) = "0" Then '分析个位
n(3) = ""
Else
n(3) = numstr(CInt(Mid(num(0), 4, 1)) + 1)
End If
'
If Right(num(0), 3) = "000" Then '当末尾有000时
n(1) = ""
n(2) = ""
n(3) = ""
End If
If Right(num(0), 2) = "00" Then '当末尾有00时
n(2) = ""
n(3) = ""
End If
If Right(num(0), 1) = "0" Then '当末尾有0时
n(3) = ""
End If
'
'统计
number3 = n(0) + n(1) + n(2) + n(3)
''取得整数位值
intstr = number1 + number2 + number3
End Select
If str1 = "0" Then '如果整数为零,转换为"零"
intstr = numstr(1)
End If
'==============分析和转换小数部分==============
If cntype = 0 Then '如果转换为人民币表达式
' if len(str2)>2 then'如果小数位数大于2,就四舍五入.
' str2=right(string(round(double("0"+"."+str2),2)),2)
' end if
If Mid(str2, 1, 1) = "0" Then
n(0) = "零"
Else
n(0) = numstr(CInt(Mid(str2, 1, 1)) + 1) + "角"
End If
If Mid(str2, 2, 1) = "0" Then
n(1) = ""
Else
n(1) = numstr(CInt(Mid(str2, 2, 1)) + 1) + "分"
End If
decstr = n(0) + n(1)
End If
If cntype = 1 Then '如果转换为数字表达式
Dim decpos As Integer
For decpos = 1 To Len(str2)
n(decpos) = numstr(CInt(Mid(str2, decpos, 1)) + 1)
decstr = decstr + n(decpos)
Next
End If
'================输出本函数的结果================
If cntype = 0 Then '将数字字串转换为人民币的大写格式
If str2 = "" Then '如果为纯整数
Return intstr + "元整"
Else
If intstr = "零" Then '如果整数为零，就只显示小数
Return decstr
Else
Return intstr + "元" + decstr
End If
End If
End If
If cntype = 1 Then '将数字字串转换为普通大写格式
If str2 = "" Then '如果为纯整数
Return intstr
Else
Return intstr + "点" + decstr
End If
End If
End Function
End Module
评论 (0) All
