东营区新区医院:求助：小写金额转换成大写金额

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, Text1.Text, ".") - 1)
LenStr = Len(TxtStrI)

For i = LenStr To 1 Step -1
Select Case Mid(TxtStrI, i, 1)
Case 1
CurStr = "壹"
Case 2
CurStr = "贰"
Case 3
CurStr = "叁"
Case 4
CurStr = "肆"
Case 5
CurStr = "伍"
Case 6
CurStr = "陆"
Case 7
CurStr = "柒"
Case 8
CurStr = "捌"
Case 9
CurStr = "玖"
Case 0
CurStr = "零"

End Select

ResultStr = CurStr & Arr_Unit(LenStr - i + 1) & ResultStr
Next

'小数部分

TxtStrF = Right(Text1.Text, Len(Text1.Text) - InStr(1, Text1.Text, "."))

For i = 1 To 2

CurStr = "零"
Select Case Mid(TxtStrF, i, 1)
Case 1
CurStr = "壹"
Case 2
CurStr = "贰"
Case 3
CurStr = "叁"
Case 4
CurStr = "肆"
Case 5
CurStr = "伍"
Case 6
CurStr = "陆"
Case 7
CurStr = "柒"
Case 8
CurStr = "捌"
Case 9
CurStr = "玖"
Case 0
CurStr = "零"
End Select

ResultStr = ResultStr & CurStr & Arr_Unit_F(i)
Next

Text2.Text = ResultStr

'界面处理
Clipboard.SetText ResultStr
Text2.SetFocus
Text2.SelLength = Len(Text2.Text)

Exit Sub

ErrorHandle:
ShowErrorInt = 0
Timer1.Enabled = True

End Sub

每天都在使用这个程序,未曾出错过````仅供参考, 你自己适当修改一下``

vfp语言编写，可适当修改。

FUNCTION UPPERRMB
PARAMETER RMB
PRIVATE UNIT, NUMBER, I, RETVAR
UNIT = '分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟'
NUMBER = '零壹贰叁肆伍陆柒捌玖'
RMB = INT(RMB*100+0.5)
RETVAR = ''
DO WHILE RMB>0
RETVAR = SUBSTR(NUMBER,2*(MOD(RMB,10))+1,2)+LEFT(UNIT,2)+RETVAR
RMB = INT(RMB/10)
UNIT = SUBSTR(UNIT,3)
ENDDO
RETVAR = STRTRAN(RETVAR,'零仟','零')
RETVAR = STRTRAN(RETVAR,'零佰','零')
RETVAR = STRTRAN(RETVAR,'零拾','零')
RETVAR = STRTRAN(RETVAR,'零角','零')
DO WHILE '零零'$RETVAR
RETVAR = STRTRAN(RETVAR,'零零','零')
ENDDO
RETVAR = STRTRAN(RETVAR,'零亿','亿')
RETVAR = STRTRAN(RETVAR,'零万','万')
RETVAR = STRTRAN(RETVAR,'亿万','亿零')
RETVAR = STRTRAN(RETVAR,'零零','零')
RETVAR = STRTRAN(RETVAR,'零圆','圆')
RETVAR = STRTRAN(RETVAR,'零分','整')
RETVAR = IIF(LEN(RETVAR)=0,'零圆整',RETVAR)
RETURN RETVAR