Crystal Reports(水晶报表) 中的人民币大写金额写法

最新推荐文章于 2024-02-04 08:15:23 发布

原创

最新推荐文章于 2024-02-04 08:15:23 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#J#

这篇博客介绍了如何在Crystal Reports中将数值变量{@TotalWithTax}转换为人民币大写格式。通过自定义变量和数组，移除千位分隔符，然后用中文数字替换阿拉伯数字，并结合中文货币单位完成转换。最终实现包括整数和小数部分的大写金额表达。

自定义一个变量如下： ( {@TotalWithTax} 是要显示成人民币大写金额的变量 )

________________________________________________

    Global   StringVar   Array   PreDotUnit;
    Global   StringVar   Array   ChineseDollar;
    Global   StringVar   Array   ResultPreDot;
    Global   StringVar   Array   ResultAftDot;
    Global   StringVar   number   :=   ToText(ToNumber({@TotalWithTax}));

    // Kill thousand mark
    number   :=   Replace   (number,   ",",   "");

    ChineseDollar   :=   ["零","壹","貳","叁","肆","伍","陸","柒","捌","玖"];
    PreDotUnit   :=   ["元","拾","佰","仟","萬","拾","佰","仟","億","拾","佰","仟","兆","拾","佰","仟"];

    //   Get the numbers before decimal
    Local   StringVar   PreDotNumber   :=   Left   (number,   InStr   (number,   ".")-1);
    //   Get the numbers after decimal
    Local   StringVar   PostDotNumber   :=   Right