正文
vb.net金额转大室的简单介绍
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net 如何把大写金额转换成阿拉伯数字金额？
Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr = Text2.Text
myint = InStr(mystr, ".")
If myint = 0 Then
mystr = Text2.Text
Else
mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)
If mystr3 "" Then '转换小数位
mystr4 = Left(mystr3, 1)
mystr3 = Right(mystr3, Len(mystr3) - 1)
If mystr4 "0" Then
mystr2 = mystr2 + setdata(Val(mystr4)) + "角"
End If
If mystr3 "" Then
mystr4 = Left(mystr3, 1)
mystr2 = mystr2 + setdata(Val(mystr4)) + "分"
End If
End If
mystr = Left(Text2.Text, myint - 1)
End If
j = Len(mystr)
For i = 1 To Len(mystr) '转换整数位
money2 = Left(mystr, i)
money1 = Right(money2, 1)
If money1 = 0 Then
If j = 5 Then
If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"
Else
If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"
End If
Else
mystr1 = mystr1 setdata(money1) + chang(j)
End If
j = j - 1
Next i
Text1.Text = mystr1 "元" mystr2 '显示大写
End Sub
相关问答
Q1: vb.net text.box 如何实现输入的小写转变为大写
1：将文件拷贝到WORD中
2：点击菜单“格式”——更改大小写，出现对话框
3：可以选择“大写”或者“切换大小写”，就都可以换过来了
最后，再复制回到你所需要的文档中即可！
Q2: vb小写数字转大写
Dim strZS As String '整数部分
Dim strXS As String '小数部分
Dim strZSDX As String '整数部分大写
Dim strXSDX As String '小数部分大写
Private Function Num2DaXie(num As String) As String
Dim strDX As String
strDX = "零壹贰叁肆伍陆柒捌玖"
Num2DaXie = Mid(strDX, CInt(num) + 1, 1)
End Function
Private Function ShuWei(sw As Integer) As String
Dim strSW As String
strSW = " 拾佰仟万拾佰仟亿拾佰仟万拾佰仟"
ShuWei = Mid(strSW, sw, 1)
End Function
Public Function DaXie(strYS As String) As String
Dim i As Integer
If InStr(strYS, ".") = 0 Then
strXSDX = ""
strZS = strYS
Else
strZS = Left(strYS, InStr(strYS, ".") - 1)
strXS = Right(strYS, Len(strYS) - InStr(strYS, "."))
For i = 1 To Len(strXS)
strXSDX = Num2DaXie(Mid(strXS, Len(strXS) - i + 1, 1)) strXSDX
Next
strXSDX = "点" strXSDX
End If
For i = 1 To Len(strZS)
strZSDX = Num2DaXie(Mid(strZS, Len(strZS) - i + 1, 1)) ShuWei(i) strZSDX
Next
strZSDX = Replace(strZSDX, "零拾", "零")
strZSDX = Replace(strZSDX, "零佰", "零")
strZSDX = Replace(strZSDX, "零仟", "零")
Do While InStr(strZSDX, "零零") 0
strZSDX = Replace(strZSDX, "零零", "零")
Loop
strZSDX = Replace(strZSDX, "零亿", "亿")
strZSDX = Replace(strZSDX, "零万", "万")
strZSDX = Replace(strZSDX, "亿万", "亿")
DaXie = Trim(strZSDX) strXSDX
strZSDX = ""
strXSDX = ""
End Function
'上面代码是阿拉伯数字转大写，跟你题目吻合。但看你图片发现是金额转大写，那就要用下面的代码
Dim strXSDX As String '小数部分大写
Dim strZS As String '整数部分
Dim strXS As String '小数部分
Dim strZSDX As String '整数部分大写
Private Function Num2DaXie(num As String) As String
Dim strDX As String
strDX = "零壹贰叁肆伍陆柒捌玖"
Num2DaXie = Mid(strDX, CInt(num) + 1, 1)
End Function
Private Function ShuWei(sw As Integer) As String
Dim strSW As String
strSW = "圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟"
ShuWei = Mid(strSW, sw, 1)
End Function
Public Function DaXie(strYS As String) As String
Dim i As Integer
If InStr(strYS, ".") = 0 Then
strXSDX = "整"
strZS = strYS
Else
strZS = Left(strYS, InStr(strYS, ".") - 1)
strXS = Right(strYS, Len(strYS) - InStr(strYS, "."))
If Len(strXS) = 1 Then
strXSDX = Num2DaXie(strXS) "角"
Else
strXSDX = Num2DaXie(Left(strXS, 1)) "角" Num2DaXie(Mid(strXS, 2, 1)) "分"
End If
End If
For i = 1 To Len(strZS)
strZSDX = Num2DaXie(Mid(strZS, Len(strZS) - i + 1, 1)) ShuWei(i) strZSDX
Next
strXSDX = Replace(strXSDX, "零角", "零")
strZSDX = Replace(strZSDX, "零拾", "零")
strZSDX = Replace(strZSDX, "零佰", "零")
strZSDX = Replace(strZSDX, "零仟", "零")
Do While InStr(strZSDX, "零零") 0
strZSDX = Replace(strZSDX, "零零", "零")
Loop
strZSDX = Replace(strZSDX, "零亿", "亿")
strZSDX = Replace(strZSDX, "零万", "万")
strZSDX = Replace(strZSDX, "零圆", "圆")
strXSDX = Replace(strXSDX, "零分", "")
strZSDX = Replace(strZSDX, "亿万", "亿")
If strXSDX = "零" Then strXSDX = "整"
DaXie = strZSDX strXSDX
strZSDX = ""
strXSDX = ""
End Function
vb.net金额转大室的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net金额转大室的信息别忘了在本站进行查找喔。
