#1 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);??//得 ..
#1 >>Next Page
Forum:CnVCL 组件包
Thread:RMBFloatToChinese转 ...
Next Thread:CnInProcessAPIHook修 ...