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 //返回结果