求助：小写金额转换成大写金额

来源：百度知道 编辑：UC知道 时间：2024/05/19 09:31:36
用jsp技术将金额小写转换成大写，代码要怎么写？
谢谢了！
有没有人会java的?

VB版本:

Private Sub ImgBtn_Click()
On Error GoTo ErrorHandle:
Dim i As Integer
Dim UnChNum As Currency
Dim TxtStrI As String
Dim TxtStrF As String
Dim LenStr As Integer
Dim CurStr As String
Dim ResultStr As String
Dim Arr_Unit(1 To 12) As String
Dim Arr_Unit_F(1 To 2) As String

Arr_Unit(1) = "圆"
Arr_Unit(2) = "拾"
Arr_Unit(3) = "佰"
Arr_Unit(4) = "仟"
Arr_Unit(5) = "万"
Arr_Unit(6) = "拾"
Arr_Unit(7) = "佰"
Arr_Unit(8) = "仟"
Arr_Unit(9) = "亿"
Arr_Unit(10) = "拾"
Arr_Unit(11) = "佰"
Arr_Unit(12) = "仟"

Arr_Unit_F(1) = "角"
Arr_Unit_F(2) = "分"

Text1.Text = CStr(CCur(Trim(Text1.Text)))
Text1.Text = Format(Text1.Text, "###########.##")

'整数部分
TxtStrI = Left(Text1.Text, InStr(1