最精简的小写金额转大写的函数
来源:互联网 发布:云雀360网络打印机 编辑:程序博客网 时间:2024/06/11 14:39
.测试通过了。
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;
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;
- 最精简的小写金额转大写的函数
- 最精简的小写金额转大写的函数
- 最精简的小写金额转大写的函数
- 最精简的小写金额转大写的函数
- Delphi2010下的小写金额转大写的函数
- 金额小写转大写函数
- 小写金额转换成大写金额的函数
- js实现金额的大写转小写
- 人民币小写金额转大写金额的算法
- 一个将小写金额转换为大写的C#函数
- 将小写金额转换为英文大写的SQL函数
- 将小写金额转换为中文大写的SQL函数
- 将小写金额转换为中文大写的SQL函数
- 将小写金额转换为英文大写的SQL函数
- 一个Asp中将小写金额转换为大写的函数
- 将小写金额转换为英文大写的SQL函数
- 将小写金额转换为中文大写的SQL函数
- 将小写金额转换为中文大写的SQL函数
- 又要开始干老本行了 :(
- 01.23.2005 综体/展览馆打球日记
- 贫血领域模型之乐与怒
- 我的龙族
- 同济大学软件学院万院长谈择业
- 最精简的小写金额转大写的函数
- 国内外的一些C++/VC++技术站点
- 不与钱财过不去 揭密五年成大富翁的六大法则
- 看深圳女人的爱情恐慌有感(转)
- 利用CSS实现竖排文字文字效果
- 关于C中文件操作的问题
- 新年新气象
- PowerDesigner创始人简介
- 操作系统名录