# 金額轉換演算法

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

## Apsara Conference 2019

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

## Alibaba Cloud Free Trial

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