大小写转换

显示中文币值  
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