人民币大写
来源:互联网 发布:欧洲聊天软件 编辑:程序博客网 时间:2024/05/17 04:38
const Len:Integer = 10 ;
cNum: WideString = '零壹贰叁肆伍陆柒捌玖';
function NumToChar(const n: Double): string;
var
i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%'+inttostr(Len)+'d',[round(n * 100)]);
for i := 0 to Len-1 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then
continue
else
Result := Result + cNum[strtoint(stemp)+1];
end;
end;
cNum: WideString = '零壹贰叁肆伍陆柒捌玖';
function NumToChar(const n: Double): string;
var
i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%'+inttostr(Len)+'d',[round(n * 100)]);
for i := 0 to Len-1 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then
continue
else
Result := Result + cNum[strtoint(stemp)+1];
end;
end;
- 人民币大写
- 人民币大写
- 人民币大写
- 人民币大写
- 人民币大写
- 人民币大写
- 123转化大写人民币
- 人民币大写金额函数
- 人民币大写转换
- 人民币大写转换
- 人民币小写转大写
- 转换大写人民币
- c#人民币大写转换
- 人民币小写转大写
- 人民币转成大写
- 数字转人民币大写
- 人民币转成大写
- 人民币小写转大写
- 十大绝招保护SQL Server数据库安全
- 关于McKiney
- 如何购买二手笔记本
- C++BUILDER非可视组件的消息处理技巧
- 牵手了就不要随便分手
- 人民币大写
- Delphi中建议使用的语句 选择自 crbb 的 Blog
- DB2性能优化(一) 之 运行重组统计
- 人民币大写
- 产品类研发项目需要注意的几个问题
- JSP实例入门(二) 键值对
- C++ 的 website
- Subversion client config
- SQL Server 选取数据表的行作为列显示出来