| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2004/1/8 18:59:28 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 各位高人,请教如何将阿拉伯数字形式的金额,转换成中文大写形式? 如:123.45->壹佰贰拾叁圆肆角伍分 email:jsjyx@sohu.com ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/8 19:53:27 | ||||
| 1楼： | 转摘 //实数转换为中文货币 function MoneyCn(mMoney: Real): WideString; var P: Integer; begin if mMoney = 0 then begin Result := '无'; Exit; end; Result := NumberCn(Round(mMoney * 100) / 100); Result := StringReplace(Result, '一', '壹', [rfReplaceAll]); Result := StringReplace(Result, '二', '贰', [rfReplaceAll]); Result := StringReplace(Result, '三', '叁', [rfReplaceAll]); Result := StringReplace(Result, '四', '肆', [rfReplaceAll]); Result := StringReplace(Result, '五', '伍', [rfReplaceAll]); Result := StringReplace(Result, '六', '陆', [rfReplaceAll]); Result := StringReplace(Result, '七', '柒', [rfReplaceAll]); Result := StringReplace(Result, '八', '捌', [rfReplaceAll]); Result := StringReplace(Result, '九', '玖', [rfReplaceAll]); Result := StringReplace(Result, '九', '玖', [rfReplaceAll]); Result := StringReplace(Result, '十', '拾', [rfReplaceAll]); Result := StringReplace(Result, '百', '佰', [rfReplaceAll]); Result := StringReplace(Result, '千', '仟', [rfReplaceAll]); P := Pos('点', Result); if P > 0 then begin Insert('分', Result, P + 3); Insert('角', Result, P + 2); Result := StringReplace(Result, '点', '圆', [rfReplaceAll]); Result := StringReplace(Result, '角分', '角', [rfReplaceAll]); Result := StringReplace(Result, '零分', ', [rfReplaceAll]); Result := StringReplace(Result, '零角', ', [rfReplaceAll]); Result := StringReplace(Result, '分角', ', [rfReplaceAll]); if Copy(Result, 1, 2) = '零圆' then Result := StringReplace(Result, '零圆', ', [rfReplaceAll]); end else Result := Result + '圆整'; //Result := '人民币' + Result; end; { MoneyCn } ---------------------------------------------- - 还冇学会 |
|||||
| 作者： |
|
2004/1/9 16:20:52 | ||||
| 2楼： | 请问.dbs是哪中数据类型文件，是数据库文件吗？ ---------------------------------------------- 我们共同努力，一切问题都会解决 |
|||||
| 作者： |
|
2004/1/9 19:05:17 | ||||
| 3楼： | 谢了 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
