RMBFloatToChinese转换部分金额时有误，在个位数为0时大写不正确 - CnVCL 组件包 - CnPack Forum

灌水科科长

UID 1023
Digest Posts 0
Credits 178
Posts 70
点点分 178
Reading Access 10
Registered 2005-9-6
Location 湖北
Status Offline

Post at 2019-10-8 10:21 Profile | Blog | P.M.

RMBFloatToChinese转换部分金额时有误，在个位数为0时大写不正确

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

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

[ 本帖最后由 wfymqj 于 2019-10-10 11:48 编辑 ]

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2020-5-21 11:15 Profile | Blog | P.M.

感谢报告，才看到。

我们修复一下。

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2020-5-21 11:17 Profile | Blog | P.M.

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