显示中文币值
Function DispMoneyCHS(Money)
'壹拾壹亿壹仟贰佰叁拾肆万伍仟陆佰柒拾捌元玖角零分00,000,000.00 <b><font face="幼圆">收款音</font></b>
Money=FormatNumber(trim(Money),2)
MoneyLen=len(Money)
TempStr=""
'十亿位
If MoneyLen<16 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,16),1) )&" <b><font face='幼圆'>拾</font></b> "
End if
'亿位
If MoneyLen<14 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,14),1) )&" <b><font face='幼圆'>亿</font></b> "
End if
'千万位
If MoneyLen<13 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,13),1) )&" <b><font face='幼圆'>仟</font></b> "
End if
'百万位
If MoneyLen<12 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,12),1) )&" <b><font face='幼圆'>佰</font></b> "
End if
'十万位
If MoneyLen<10 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,10),1) )&" <b><font face='幼圆'>拾</font></b> "
End if
'万位
If MoneyLen<9 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,9),1) )&" <b><font face='幼圆'>万</font></b> "
End if
'千位
If MoneyLen<8 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,8),1) )&" <b><font face='幼圆'>仟</font></b> "
End if
'百位
If MoneyLen<6 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,6),1) )&" <b><font face='幼圆'>佰</font></b> "
End if
'十位
If MoneyLen<5 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,5),1) )&" <b><font face='幼圆'>拾</font></b> "
End if
'个位
If MoneyLen<4 then
TempStr=TempStr &""
Else
TempStr=TempStr & GetNumCHS( left( right(Money,4),1) )&" <b><font face='幼圆'>元</font></b> "
End if
'角
If right(Money,2)="00" then
TempStr=TempStr &"整"
Else
TempStr=TempStr & GetNumCHS( left( right(Money,2),1) )&" <b><font face='幼圆'>角</font></b> "
End if
'分
If right(Money,2)<>"00" then
TempStr=TempStr & GetNumCHS( right(Money,1))&" <b><font face='幼圆'>分</font></b>"
End if
DispMoneyCHS=TempStr
End Function
Function GetNumCHS(Num)
Select Case Num
Case "1"
GetNumCHS="壹"
Case "2"
GetNumCHS="贰"
Case "3"
GetNumCHS="叁"
Case "4"
GetNumCHS="肆"
Case "5"
GetNumCHS="伍"
Case "6"
GetNumCHS="陆"
Case "7"
GetNumCHS="柒"
Case "8"
GetNumCHS="捌"
Case "9"
GetNumCHS="玖"
Case "0"
GetNumCHS="零"
End Select
End Function
