PB中小写金额转换成大写金额（发票类型）

 

PB中小写金额转换成大写金额

//=================================================================
// 功能：小写金额转换成大写金额
// 参数：    decimal     number  需要转换的金额
// 返回值：  string      ls_rc   大写金额字符串

string CN_NUM[10] = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}//大写0-9
string CN_CARRY[19] = {"分","角","","元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万","拾","佰","仟"}//单位
string ls_pos,ls_old,ls_number,ls_rc = ''
integer li_i,li_len //循环变量
string ls_zf = '' //正负符号

//参数格式化
if number < 0 then
 ls_zf = '负'
 number = (-1)*number
end if
ls_number = string(number,"0.00")
//参数的长度
li_len = Len(ls_number)

//转换为大写(发票格式)，从右到左
for li_i = 1 to li_len
 ls_pos = Mid(ls_number,li_len - li_i + 1,1)
 if ls_pos = '.' then continue
 ls_rc = cn_num[1 + mod(integer(ls_pos),10)] + cn_carry[li_i] + ls_rc 
next
ls_rc = ls_zf + ls_rc
return ls_rc //返回结果