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 = '' //正负符号
// 功能:小写金额转换成大写金额
// 参数:
// 返回值:
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)
//转换为大写(发票格式),从右到左if number < 0 then
end if
ls_number = string(number,"0.00")
//参数的长度
li_len = Len(ls_number)
for li_i = 1 to li_len
next
ls_rc = ls_zf + ls_rc
return ls_rc //返回结果