Chinaunix首页 | 论坛 | 博客
  • 博客访问: 103068458
  • 博文数量: 19283
  • 博客积分: 9968
  • 博客等级: 上将
  • 技术积分: 196062
  • 用 户 组: 普通用户
  • 注册时间: 2007-02-07 14:28
文章分类

全部博文(19283)

文章存档

2011年(1)

2009年(125)

2008年(19094)

2007年(63)

分类: DB2/Informix

2008-04-08 21:23:08

####################################### 
## 这个函数输入金额,返回大写汉字金额 ## 
## bellchiu AT NanJing CITIC    :em13:       ## 
####################################### 
FUNCTION F_CONV_GB(pf_money) 
DEFINE pf_money DECIMAL(14,2) 

DEFINE ll_money   INTEGER 
DEFINE i       SMALLINT 
DEFINE li_bit   SMALLINT 
DEFINE li_length SMALLINT 
DEFINE li_len    SMALLINT 
DEFINE ls_money  CHAR(20) 
DEFINE ls_result CHAR(64) 

DEFINE ls_arr_num   ARRAY [10] OF CHAR(2) 
DEFINE ls_arr_unit  ARRAY [14] OF CHAR(2) 
DEFINE ls_arr_unit0 ARRAY [14] OF CHAR(2) 

LET ls_arr_num[1] ='' 
LET ls_arr_num[2] ='' 
LET ls_arr_num[3] ='' 
LET ls_arr_num[4] ='' 
LET ls_arr_num[5] ='' 
LET ls_arr_num[6] ='' 
LET ls_arr_num[7] ='' 
LET ls_arr_num[8] ='' 
LET ls_arr_num[9] ='' 
LET ls_arr_num[10]='' 

LET  ls_arr_unit[ 1] = '' 
LET  ls_arr_unit[ 2] = '' 
LET  ls_arr_unit[ 3] = '' 
LET  ls_arr_unit[ 4] = '' 
LET  ls_arr_unit[ 5] = '' 
LET  ls_arr_unit[ 6] = '' 
LET  ls_arr_unit[ 7] = '' 
LET  ls_arr_unit[ 8] = '' 
LET  ls_arr_unit[ 9] = '' 
LET  ls_arr_unit[10] = '' 
LET  ls_arr_unit[11] = '亿' 
LET  ls_arr_unit[12] = '' 
LET  ls_arr_unit[13] = '' 
LET  ls_arr_unit[14] = '' 

LET  ls_arr_unit0[ 1] = '' 
LET  ls_arr_unit0[ 2] = '' 
LET  ls_arr_unit0[ 3] = '' 
LET  ls_arr_unit0[ 4] = '' 
LET  ls_arr_unit0[ 5] = '' 
LET  ls_arr_unit0[ 6] = '' 
LET  ls_arr_unit0[ 7] = '' 
LET  ls_arr_unit0[ 8] = '' 
LET  ls_arr_unit0[ 9] = '' 
LET  ls_arr_unit0[10] = '' 
LET  ls_arr_unit0[11] = '亿' 
LET  ls_arr_unit0[12] = '' 
LET  ls_arr_unit0[13] = '' 
LET  ls_arr_unit0[14] = '' 

IF  pf_money=0 THEN 
   RETURN '零元整' 
END IF 
IF pf_money<0 THEN 
   LET pf_money=0 - pf_money 
   LET ls_result='负 ' 
ELSE 
   LET ls_result='' 
END IF 
IF pf_money>999999999999.99 THEN 
   RETURN ls_result='数值超出范围' 
END IF 

LET ls_money=pf_money*100 USING "<<<<<<<<<<<<<<" 
LET li_length=length(ls_money CLIPPED) 

for i=1 to li_length 

   LET li_bit=ls_money 
       
   if li_bit=0 then 
      LET li_len=length(ls_result CLIPPED) 
      if ls_result[li_len - 1, li_len]<>'' then 
         LET ls_result = ls_result CLIPPED, ls_arr_unit0[li_length - i + 1] 
      else 
         LET ls_result = ls_result[1, li_len - 2], 
                      ls_arr_unit0[li_length - i + 1] 
      end if 
   else 
      LET ls_result = ls_result CLIPPED, ls_arr_num[li_bit], 
                  ls_arr_unit [li_length -i + 1] 
   end if 
END FOR 

return ls_result CLIPPED 

END FUNCTION  
 
阅读(910) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~