vbscript Web 开发 / ASP

作者：佚名    文章来源：不详    点击数：加载中...    更新时间：2008-7-12 字体:[大 中 小]

vbscript

楼主zhmwcy510（）2006-12-22 11:28:24 在 Web 开发 / ASP 提问

Function   Num2RMB(sFourBitString   As   String,   sUnit   As   String   =   "元",   bMustHeader   As   Boolean   =False)  
   
   
  Dim   vNum,   I,   RX,   AR,   BR,   hdr  
   
  AR   =   "零壹贰叁肆伍陆柒捌玖"  
  BR   =   "仟佰拾元"  
   
  vNum   =   Right(Trim(Str(Val(sFourBitString))),   4)                
   
  If   (Len(vNum)   <   4   And   Len(vNum)   >   0)   And   bMustHeader   Then   hdr   =   "零"   _  
          Else   hdr   =   ""  
  RX   =   ""  
  Do   While   Len(vNum)   >   0  
          I   =   Right(vNum,   1)  
          If   I   >   0   Then  
                  RX   =   Num2Char(I)   +   Right(BR,   1)   +   RX  
          Else  
                  If   Left(RX,   1)   <>   "零"   Then   RX   =   "零"   +   RX  
          End   If  
          vNum   =   Left(vNum,   Len(vNum)   -   1)  
          BR   =   Left(BR,   Len(BR)   -   1)  
  Loop  
  RX   =   Left(RX,   Len(RX)   -   1)  
  If   Right(RX,   1)   =   "零"   Then        
          RX   =   Left(RX,   Len(RX)   -   1)  
  End   If  
  If   Len(RX)   >   0   Then  
          Num2RMB   =   hdr   +   RX   +   sUnit  
  Else  
          Num2RMB   =   RX   +   IIf(sUnit   =   "元",   "元",   "")  
  End   If  
  End   Function  
   
  Microsoft   VBScript   编译器错误   (0x800A03EE)  
  缺少   ')'  
  /shiyang/aa.asp,   line   9,   column   32  
  Function   Num2RMB(sFourBitString   As   String,   sUnit   As   String   =   "元",   bMustHeader   As   Boolean   =False)  
  这句话有问题,高手们帮个忙啊!  
  问题点数：20、回复次数：0Top