站长资讯网
最全最丰富的资讯网站

Asp实现人民币大小写转换代码

Asp实现人民币大小写转换示例:
<%  
  Function   rmb(num)  
   
  num   =   FormatNumber(num,   2)  
  Dim   numList    
  Dim   rmbList    
  Dim   numLen  
  Dim   numChar  
  Dim   numstr  
  Dim   n    
  Dim   n1,   n2    
  Dim   hz  
  numList   =   “零壹贰叁肆伍陆柒捌玖”  
  rmbList   =   “分角元拾佰仟万拾佰仟亿拾佰仟万”  
  If   num   >   9999999999999.99   Then  
  rmb   =   “超出范围的人民币值”  
  Exit   Function  
  End   If  
  numstr   =   CStr(num   *   100)  
  numLen   =   Len(numstr)  
  n   =   1  
  Do   While   n   <=   numLen  
  numChar   =   CInt(Mid(numstr,   n,   1))  
  n1   =   Mid(numList,   numChar   +   1,   1)  
  n2   =   Mid(rmbList,   numLen   –   n   +   1,   1)  
  If   Not   n1   =   “零”   Then  
  hz   =   hz   +   CStr(n1)   +   CStr(n2)  
  Else  
  If   n2   =   “亿”   or   n2   =   “万”   or   n2   =   “元”   or   n1   =   “零”   Then  
  Do   While   Right(hz,   1)   =   “零”  
  hz   =   Left(hz,   Len(hz)   –   1)  
  Loop  
  End   If  
  If   (n2   =   “亿”   or   (n2   =   “万”   And   Right(hz,   1)   <>   “亿”)   or   n2   =   “元”)   Then  
  hz   =   hz   +   CStr(n2)  
  Else  
  If   Left(Right(hz,   2),   1)   =   “零”   or   Right(hz,   1)   <>   “亿”   Then  
  hz   =   hz   +   n1  
  End   If  
  End   If  
  End   If  
  n   =   n   +   1  
  Loop  
  Do   While   Right(hz,   1)   =   “零”  
  hz   =   Left(hz,   Len(hz)   –   1)  
  Loop  
  If   Right(hz,   1)   =   “元”   Then  
  hz   =   hz   +   “整”  
  End   If  
  rmb   =   hz  
  End   Function  
  %>  
  <%  
  dim   tmpnum  
  tmpnum=589666  
  response.write   tmpnum  
  response.write   rmb(cdbl(tmpnum))  
  %> 

 

分享到: 更多

赞(0)
分享到: 更多 (0)
网站地图   沪ICP备18035694号-2    沪公网安备31011702889846号