Currency 2 大写
function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围
const
cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';
cCha:array[0..1, 0..12]of string=
(( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万','零亿','亿万','零元'),
( '元','零','零','零','万','亿','亿','零','零','万','亿','亿','元'));
var
i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%15d',[round(n * 100)]);
for i := 0 to 14 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then continue
else result := result + cNum[strtoint(stemp)+1] + cNum[i+13];
end;
for i:= 0 to 12 do
Result := StringReplace(Result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
if pos('零分',result)=0
then Result := StringReplace(Result, '零角', '零', [rfReplaceAll])
else Result := StringReplace(Result, '零角','整', [rfReplaceAll]);
Result := StringReplace(Result, '零分','', [rfReplaceAll]);
end;
2.这个我没有测试
function Changdx2(mmje: Double): String;
const s1: String = '零壹贰叁肆伍陆柒捌玖';
s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万';
function StrTran(const S, S1, S2: String): String;
begin
Result := StringReplace(S, S1, S2, [rfReplaceAll]);
end;
var
s, dx: String;
i, Len: Integer;
begin
if mmje < 0 then
begin
dx := '负';
mmje := -mmje;
end;
s := Format('%.0f', [mmje*100]);
Len := Length(s);
for i := 1 to Len do
dx := dx + Copy(s1, (Ord(s[i]) - Ord('0'))*2 + 1, 2) + Copy(s2, (Len - i)*2 + 1, 2);
dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');
dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'), '零亿', '亿'), '零万', '万'), '零元', '元');
if dx = '整' then Result := '零元整'
else Result := StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整');
end;
Currency 2 大写相关推荐
- oracle转金额,ORACLE金额转换成英文大写的函数
用法如下:get_capital_money(Currency, Money) Currency: 货币或货币描述,将放在英文大写的前面: Money:金额.支持两位小数点.如果需要更多的小数点,请自 ...
- 数字货币转换成大写货币金额的JAvascript代码
用JavaScript编写了一功能函数,完成如下功能: 1.对一给定字符串,如:1234.55,转换成正确的中文货币描述:如:人民币壹仟贰佰叁拾四元五角五分 2.输入的字符串形式可以是以下几种:带分隔 ...
- (转)WORD中小写金额转换成大写
转自:http://www.officefans.net/cdb/viewthread.php?tid=52631 '* +++++++++++++++++++++++++++++ '* Create ...
- C#数字转人民币大写
C#方法 废话不多说,直接上代码: /// <summary> /// 数字转换为大写人民币表示 /// </summary> /// <param name=" ...
- Web 页面怎么加货币符号和大写转换
Web 页面数据显示常会涉及到各种各样的数据格式化处理,其中,将金额加货币符号和大写转换就很常见. 1. 代码开发版实现方法 定义数据转换函数,页面进行调用. 1). 添加货币符号函数: a. 获取待 ...
- 货币数字转换成中文大写的函数
这个函数与以前其他网友提供的结构大不相同, 是一个从高位到低位的算法, 更加符合语言习惯. //---------------------------------------------------- ...
- 金额阿拉伯数字转换为中文大写
最近的做项目中需要弄一个金额是阿拉伯数字转为中文大写的金额,自己偷懒了,就总结一下. 第一种方法相对复杂 private static readonly String cnNumber = " ...
- (转)金额转中文大写
public class RMB {//返回转换好的大写形式public static String numberToRMB(String money) {return cleanZero(split ...
- php 英文小写变大写,PHP英文字母大小写转换函数
例1,每个单词的首字母转换为大写:ucwords() 复制代码 代码示例: $foo = 'hello world!'; $foo = ucwords($foo); // He ...
最新文章
- 非阻塞同步算法与CAS(Compare and Swap)无锁算法
- KVM虚拟机相关步骤
- Linux C编程如何使用联机帮助来解决编程问题?
- java ssm框架做增删改查,使用SSM框架组合实现增删改查的功能
- 伪装nginx版本防止***web服务器
- 20140608 科技脉搏 -下半身需求是人类共同需求,有多少人就有多大市场
- git包名大小写不敏感的百分百管用但是不完美的解决方法
- 计算机信息技术知识点思维导图,思维导图信息技术的学习方法
- 深度学习C++代码配套教程(1. 总述)
- 苹果手机注册时显示链接服务器出现问题,苹果手机出现连接到服务器时出现问题是什么回事...
- lol手游修改服务器,英雄联盟官方修改大区的方法
- 男宝女宝如厕训练有不同,你做对了吗?
- Android -窗口小部件开发(App Widgets) 3部分
- oracle •求几个列的平均值,并保留2位小数
- 杭中国高铁“走出去”的意义
- OPPO快应用小游戏 分包 静态方法报错is not a function问题解决
- 如何对移动端的图片流量进行优化
- 基于深度学习的VQA(视觉问答)技术
- pbootcms后台编辑器上传mp4视频 默认黑屏不显示如何解决
- linux 解压.tar.gz文件