在IBM i（OS / 400）上使用RPGLE将数字转换为汉字

该示例代码展示了如何使用RPGLE将数字转换为中文汉字。采用的方法是根据位数不断地递归计算。

d 十五位数字 s 15 0
d 汉字 s 30a
c     *entry        plist
c                   parm                    十五位数字
c     eval          汉字 = cn(十五位数字)
c     eval          *inlr = *on            // 设定程序结束
c                   return
c                   end

p cn            b
d cn            pi              30a
d 数字          s               15 0
c                   if        数字 = 0
c                   return    '零'
c                   endif

c                   select
c     when          数字 >= 100000000000000
c                   eval      cn = cn + cn(%rem(%rem(数字, 100000000000000), 1000) / 100) + '亿'   // 亿
c                   eval      cn = cn + cn(%rem(数字, 100000000000000) / 1000000000000) + '万亿'
c                   iter
c     when          数字 >= 1000000000000
c                   eval      cn = cn + cn(%rem(%rem(数字, 1000000000000), 1000) / 100) + '万'   // 万
c                   eval      cn = cn + cn(%rem(数字, 1000000000000) / 100000000) + '亿'
c                   iter
c     when          数字 >= 100000000
c                   eval      cn = cn + cn(%rem(%rem(数字, 100000000), 1000) / 100) + '百'   // 百
c                   eval      cn = cn + cn(%rem(数字, 100000000) / 10000) + '万'
c                   iter
c     when          数字 >= 10000
c                   eval      cn = cn + cn(%rem(%rem(数字, 10000), 100) / 10) + '十'   // 十
c                   eval      cn = cn + cn(%rem(数字, 10000) / 1000) + '千'
c                   iter
c     when          数字 >= 1000
c                   eval      cn = cn + cn(数字 / 1000) + '千'   // 千
c                   eval      数字 = %rem(数字, 1000)
c                   iter
c     otherwise
c                   eval      cn = cn + cn(数字 / 100) + '百'   // 百
c                   eval      数字 = %rem(数字, 100)
c                   eval      cn = cn + cn(数字 / 10) + '十'   // 十
c                   eval      数字 = %rem(数字, 10)
c                   eval      cn = cn + cn(数字)   // 个
c                   eval      数字 = 0
c                   endsl
c                   return cn
p cn            e

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com