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

最新推荐文章于 2024-06-14 07:00:00 发布

转载最新推荐文章于 2024-06-14 07:00:00 发布 · 5.4k 阅读

文章标签：

#string #integer

PB 专栏收录该内容

35 篇文章

订阅专栏

本文介绍了一种将小写金额数值转换为符合发票格式的大写金额字符串的方法。通过定义字符数组来映射数字和单位，并采用循环遍历的方式完成转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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