转换有关问题（怎样把小写的数字转换成大写的数字？）

转换问题（怎样把小写的数字转换成大写的数字？？）
例如：543.78元
我想得到的为伍百肆拾三元柒毛八分哦

------解决方案--------------------
Public Function dfTransToBig(ByVal curMoney As Variant) As String
On Error GoTo ErrTrap
If Not IsNumeric(curMoney) Then
Exit Function
End If
dfTransToBig = " "

Dim strMoney As String
Dim strInt As String
Dim strDec As String
Dim strTemp As String

strMoney = Format(Str(curMoney), "#.00 ")
strInt = Left(strMoney, Len(strMoney) - 3)
strInt = String(12 - Len(strInt), "0 ") & Trim(strInt)
strDec = Right(strMoney, 2)

strTemp = dfGroupToBig(Mid(strInt, 1, 4))
If strTemp <> " " Then
dfTransToBig = dfTransToBig & strTemp & "亿 "
End If

strTemp = dfGroupToBig(Mid(strInt, 5, 4))
If strTemp <> " " Then
dfTransToBig = dfTransToBig & strTemp & "万 "
End If

strTemp = dfGroupToBig(Mid(strInt, 9, 4))
If strTemp <> " " Then
dfTransToBig = dfTransToBig & strTemp
End If

dfTransToBig = dfTransToBig & "圆 "
If strDec = "00 " Then
dfTransToBig = dfTransToBig & "整 "
Else
If Left(strDec, 1) = "0 " Then
dfTransToBig = dfTransToBig & dfNumberToBig(Right(strDec, 1)) & "分 "
Else
If Right(strDec, 1) = "0 " Then
dfTransToBig = dfTransToBig & dfNumberToBig(Left(strDec, 1)) & "角 "
Else
dfTransToBig = dfTransToBig & dfNumberToBig(Left(strDec, 1)) & "角 " & dfNumberToBig(Right(strDec, 1)) & "分 "
End If
End If
End If
Exit Function
ErrTrap:
On Error GoTo 0
End Function
------解决方案--------------------
Private Function dfNumberToBig(ByVal strN As String) As String
Select Case strN
Case "0 "
dfNumberToBig = "零 "
Case "1 "
dfNumberToBig = "壹 "
Case "2 "
dfNumberToBig = "贰 "
Case "3 "
dfNumberToBig = "叁 "
Case "4 "
dfNumberToBig = "肆 "
Case "5 "
dfNumberToBig = "伍 "
Case "6 "
dfNumberToBig = "陆 "
Case "7 "
dfNumberToBig = "柒 "
Case "8 "
dfNumberToBig = "捌 "
Case "9 "
dfNumberToBig = "玖 "
End Select
End Function

------解决方案--------------------
源代码都有了，复制下来用不就行了，这不都是现成的了吗？
------解决方案--------------------
同一种程序有很多写法，上面那个算法写得有点麻烦了。等我给你一个简练点的。
------解决方案--------------------
建立一个模块，将下面的代码拷贝的模块里。
注意：暂时没实现下面两个功能。
1、零百零十零万的缩位。
2、没有超出长度的处理，超过预期数字长度将导致程序崩溃。如果你把它用在商业用途，一定要小心这个现象。

函数叫ChinaNumericGet，参数是一个Double值。你只要“金额=ChinaNumericGet(数字)”就可以了。至于这个程序具体的原理如果详细说起来比较多，大致就是一个查表法。
我写程序不喜欢用Select和If Then，因为太麻烦，不容易扩展。