Board logo

Subject: RMBFloatToChinese转换部分金额时有误,在个位数为0时大写不正确 [Print This Page]

Author: wfymqj    Time: 2019-10-8 10:21     Subject: RMBFloatToChinese转换部分金额时有误,在个位数为0时大写不正确

RMBFloatToChinese转换部分金额时有误,在个位数为0时大写不正确<br />
<br />
procedure TForm1.btn1Click(Sender: TObject);<br />
var<br />
??c:Currency;<br />
begin<br />
??//c := StrToCurr(edt1.Text);<br />
??c := 20;<br />
??edt2.Text := RMBFloatToChinese(c);??//得到结果为 【贰拾元零】<br />
??c := 200;<br />
??edt2.Text := RMBFloatToChinese(c);??//得到结果为 【贰佰元零】<br />
??c := 20000;<br />
??edt2.Text := RMBFloatToChinese(c);??//得到结果为 【贰万元零】<br />
end;


在网上查找了下,下面链接写的转换函数不错。
https://blog.csdn.net/tht2009/article/details/73287225

[ 本帖最后由 wfymqj 于 2019-10-10 11:48 编辑 ]
Author: Passion    Time: 2020-5-21 11:15

感谢报告,才看到。
我们修复一下。
Author: Passion    Time: 2020-5-21 11:17

刚查下来该问题之前已修正了。




Welcome to CnPack Forum (http://bbs.cnpack.org/) Powered by Discuz! 5.0.0