Option Explicit
Dim StrNO(19) As String
Dim Unit(8) As String
Dim StrTENs(9) As String
Public Function NumberToString(Number As Double) As String
Dim Str As String, BeforePoint As String, AfterPoint As String, tmpStr As String
Dim Point As Integer
Dim nBit As Integer
Dim CurString As String
Dim nNumLen As Integer
Dim T As String
Call Init
Str = CStr(Round(Number, 2))
' Str = Number
If InStr(1, Str, ".") = 0 Then
BeforePoint = Str
AfterPoint = ""
Else
BeforePoint = Left(Str, InStr(1, Str, ".") - 1)
T = Right(Str, Len(Str) - InStr(1, Str, "."))
If Len(T) < 2 Then AfterPoint = Val(T) * 10
If Len(T) = 2 Then AfterPoint = Val(T)
If Len(T) > 2 Then AfterPoint = Val(Left(T, 2))
End If
If Len(BeforePoint) > 12 Then
NumberToString = "Too Big."
Exit Function
End If
Str = ""
Do While Len(BeforePoint) > 0
nNumLen = Len(BeforePoint)
If nNumLen Mod 3 = 0 Then
CurString = Left(BeforePoint, 3)
BeforePoint = Right(BeforePoint, nNumLen - 3)
Else
CurString = Left(BeforePoint, (nNumLen Mod 3))
BeforePoint = Right(BeforePoint, nNumLen - (nNumLen Mod 3))
End If
nBit = Len(BeforePoint) / 3
tmpStr = DecodeHundred(CurString)
If (BeforePoint = String(Len(BeforePoint), "0") Or nBit = 0) And Len(CurString) = 3 Then
If CInt(Left(CurString, 1)) <> 0 And CInt(Right(CurString, 2)) <> 0 Then
'tmpStr = Left(tmpStr, InStr(1, tmpStr, Unit(4)) + Len(Unit(4))) & Unit(8) & " " & Right(tmpStr, Len(tmpStr) - (InStr(1, tmpStr, Unit(4)) + Len(Unit(4))))
Else 'If CInt(Left(CurString, 1)) <> 0 And CInt(Right(CurString, 2)) = 0 Then
'tmpStr = Unit(8) & " " & tmpStr
End If
End If
If nBit = 0 Then
Str = Trim(Str & " " & tmpStr)
Else
Str = Trim(Str & " " & tmpStr & " " & Unit(nBit))
End If
If Left(Str, 3) = Unit(8) Then Str = Trim(Right(Str, Len(Str) - 3))
If BeforePoint = String(Len(BeforePoint), "0") Then Exit Do
'Debug.Print Str
Loop
BeforePoint = Str
If Len(AfterPoint) > 0 Then
AfterPoint = Unit(6) & " " & DecodeHundred(AfterPoint) & " " & Unit(5)
Else
AfterPoint = Unit(5)
End If
NumberToString = BeforePoint & " " & AfterPoint
End Function
Private Function DecodeHundred(HundredString As String) As String
Dim tmp As Integer
If Len(HundredString) > 0 And Len(HundredString) <= 3 Then
Select Case Len(HundredString)
Case 1
tmp = CInt(HundredString)
If tmp <> 0 Then DecodeHundred = StrNO(tmp)
Case 2
tmp = CInt(HundredString)
If tmp <> 0 Then
If (tmp < 20) Then
DecodeHundred = StrNO(tmp)
Else
If CInt(Right(HundredString, 1)) = 0 Then
DecodeHundred = StrTENs(Int(tmp / 10))
Else
DecodeHundred = StrTENs(Int(tmp / 10)) & "-" & StrNO(CInt(Right(HundredString, 1)))
End If
End If
End If
Case 3
If CInt(Left(HundredString, 1)) <> 0 Then
DecodeHundred = StrNO(CInt(Left(HundredString, 1))) & " " & Unit(4) & " " & DecodeHundred(Right(HundredString, 2))
Else
DecodeHundred = DecodeHundred(Right(HundredString, 2))
End If
Case Else
End Select
End If
End Function
Private Sub Init()
If StrNO(1) <> "ONE" Then
StrNO(1) = "ONE"
StrNO(2) = "TWO"
StrNO(3) = "THREE"
StrNO(4) = "FOUR"
StrNO(5) = "FIVE"
StrNO(6) = "SIX"
StrNO(7) = "SEVEN"
StrNO(8) = "EIGHT"
StrNO(9) = "NINE"
StrNO(10) = "TEN"
StrNO(11) = "ELEVEN"
StrNO(12) = "TWEVEL"
StrNO(13) = "THIRTEEN"
StrNO(14) = "FOURTEEN"
StrNO(15) = "FIFTEEN"
StrNO(16) = "SIXTEEN"
StrNO(17) = "SEVENTEEN"
StrNO(18) = "EIGHTEEN"
StrNO(19) = "NINETEEN"
StrTENs(1) = "TEN"
StrTENs(2) = "TWENTY"
StrTENs(3) = "THIRTY"
StrTENs(4) = "FORTY"
StrTENs(5) = "FIFTY"
StrTENs(6) = "SIXTY"
StrTENs(7) = "SEVENTY"
StrTENs(8) = "EIGHTy"
StrTENs(9) = "NINETY"
Unit(1) = "THOUSAND"
Unit(2) = "Million"
Unit(3) = "Billion"
Unit(4) = "HUNDRED"
Unit(5) = "ONLY"
Unit(6) = "CENTS"
Unit(7) = "Cents"
Unit(8) = "And"
End If
End Sub
想在英文結果前加入SAY US DOLLARS ,賞金10元
uj5u.com熱心網友回復：
求大神助攻啊uj5u.com熱心網友回復：
MsgBox "SAY US DOLLARS, BOUNTY " & NumberToString(1000000)
uj5u.com熱心網友回復：
賞金10元？
你干脆不要提到這個還好點！！！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/63966.html
標籤：VB基礎類
上一篇：VB查詢Excel里的資料