人民币大写
来源:互联网 发布:oracle数据库查询工具 编辑:程序博客网 时间:2024/05/16 02:06
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;
- 人民币大写
- 人民币大写
- 人民币大写
- 人民币大写
- 人民币大写
- 人民币大写
- 123转化大写人民币
- 人民币大写金额函数
- 人民币大写转换
- 人民币大写转换
- 人民币小写转大写
- 转换大写人民币
- c#人民币大写转换
- 人民币小写转大写
- 人民币转成大写
- 数字转人民币大写
- 人民币转成大写
- 人民币小写转大写
- C++BUILDER非可视组件的消息处理技巧
- 牵手了就不要随便分手
- 人民币大写
- Delphi中建议使用的语句 选择自 crbb 的 Blog
- DB2性能优化(一) 之 运行重组统计
- 人民币大写
- 产品类研发项目需要注意的几个问题
- JSP实例入门(二) 键值对
- C++ 的 website
- Subversion client config
- SQL Server 选取数据表的行作为列显示出来
- 任氏语录
- JavaScript封装的HashMap
- 手工清除病毒一例