金額轉換演算法

來源:互聯網
上載者:User
換算|金額|演算法|轉換 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim str As String
str = Me.TextBox1.Text.Trim
Dim isfs As Boolean
If Left(str, 1) = "-" Then
isfs = True
str = str.Remove(0, 1)
Else
isfs = False
End If
Dim strpoint As String
Dim point() As String
Dim j As Int16
Dim jj() As String
Dim jjj As String
jjj = ""
If str.IndexOf(".") <> -1 Then
point = Split(str, ".", -1, CompareMethod.Text)
str = point(0)
strpoint = point(1)
ReDim jj(strpoint.Length - 1)
For j = 0 To strpoint.Length - 1
jj(j) = Left(strpoint, 1)
strpoint = Right(strpoint, strpoint.Length - 1)
jjj = jjj + convert(jj(j))
Next
End If
Dim strcode As String
strcode = ""
While strcode.Length <= str.Length
strcode = strcode & "2345" & "2346"
End While
strcode = "1" & strcode
strcode = Left(strcode, str.Length)
Dim i As Int16
Dim a() As String
Dim strcode1 As String
Dim countstr As Int16
Dim strcode2 As String
countstr = strcode.Length
ReDim a(strcode.Length - 1)
For i = 0 To countstr - 1
a(i) = Right(strcode, 1)
strcode = Left(strcode, strcode.Length - 1)
strcode1 = strcode1 & a(i)
strcode2 = strcode2 & "," & Mid(str, i + 1, 1) & Mid(strcode1, i + 1, 1)
Next
strcode2 = Right(strcode2, strcode2.Length - 1)
Dim newstr() As String
newstr = Split(strcode2, ",", -1, CompareMethod.Text)
Dim ii As Int16
Dim laststr As String
Dim strcode3 As String
Dim leftstr As String
Dim rightstr As String
For ii = 0 To newstr.Length - 1
strcode3 = newstr(ii)
leftstr = Left(strcode3, 1)
rightstr = Right(strcode3, 1)
rightstr = Replace(rightstr, rightstr, convert2(rightstr))
leftstr = Replace(leftstr, leftstr, convert(leftstr))
If leftstr = "零" And (rightstr = "拾" Or rightstr = "佰" Or rightstr = "仟") Then
rightstr = ""
End If
If leftstr = "零" And (rightstr = "萬" Or rightstr = "億") Then
leftstr = ""
End If
strcode3 = leftstr & rightstr
laststr = laststr & strcode3
Next
While laststr.IndexOf("佰零萬") <> -1
laststr = laststr.Replace("零萬", "萬")
End While
While laststr.IndexOf("仟零零萬") <> -1
laststr = laststr.Replace("零零萬", "萬")
End While
While laststr.IndexOf("零萬") <> -1
laststr = laststr.Replace("零萬", "零")
End While
While laststr.IndexOf("零億") <> -1
laststr = laststr.Replace("零億", "億")
End While
While laststr.IndexOf("零零") <> -1
laststr = laststr.Replace("零零", "零")
End While
While Right(laststr, 1) = "零"
laststr = Left(laststr, laststr.Length - 1)
End While
If isfs = True Then
laststr = "負" & laststr
End If
If jjj = "" Then
TD2.InnerHtml = laststr
Else
If laststr = "" Then
TD2.InnerHtml = "零點" & jjj
Else
TD2.InnerHtml = laststr & "點" & jjj
End If
End If

End Sub

Function convert(ByVal num As String)
Select Case num
Case "1"
convert = "壹"



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。