## 【转】Delphi货币类型转中文大写金额 转

o
osc_5yejhemb

``````unit TU2.Helper.Currency;

interface

function CurrencyToChineseCapitalCharacter(const AValue: Currency; const ADecimals: Cardinal=4): string;
function CurrencyToString(const AValue: Currency; const ADecimals: Cardinal=4): string;

implementation

uses System.SysUtils, System.Math;

function CurrencyRound(var U: UInt64; const ADecimals: Cardinal): Integer; inline;
var
W: UInt64;
begin//Bankers-rounding
if Result<0 then
Result := 0
else if Result>0 then
begin
case Result of
1:begin   //li
DivMod(U, 10, U, W);
if (W > 5) or ((W = 5) and Odd(U)) then
Inc(U);
end;
2:begin  //fen
DivMod(U, 100, U, W);
if (W > 50) or ((W = 50) and Odd(U)) then
Inc(U);
end;
3:begin  //jiao
DivMod(U, 1000, U, W);
if (W > 500) or ((W = 500) and Odd(U)) then
Inc(U);
end;
4:begin  //yuan
DivMod(U, 10000, U, W);
if (W > 5000) or ((W = 5000) and Odd(U)) then
Inc(U);
end;
end;
end;
end;

function CurrencyToChineseCapitalCharacter(const AValue: Currency; const ADecimals: Cardinal=4): string;
const//Currency: [-922337203685477.5807, 922337203685477.5807]
CCCNegative = '负';
CCCZheng = '整';
CCCNumbers: array[0..9] of Char = ('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');
CCCUnits: array[0..18] of Char = ('毫', '厘', '分', '角', '元','拾','佰','仟','万',
'拾','佰','仟','亿','拾','佰','仟','万','兆','拾');
var
U, W: UInt64;
Digits, Idx, ZeroFlag: Integer;
Negative: Boolean;
Buff: array[0..38] of Char;
begin
U := PUInt64(@AValue)^;
if U <> 0 then
begin
Negative := (U and \$8000000000000000) <> 0;
if Negative then
U := not U + 1;
if U<>0 then
begin
//Try skip trailing zero
repeat
DivMod(U, 10, U, W);
Inc(Digits);
until W<>0;
Dec(Digits);
Idx := 38;
if Digits>=3 then
begin
Buff[Idx] := CCCZheng;
Dec(Idx);
if Digits>4 then
begin
Buff[Idx] := CCCUnits[4];
Dec(Idx);
if Digits>17 then
begin
Buff[Idx] := CCCUnits[17];
Dec(Idx);
end else if Digits>12 then
begin
Buff[Idx] := CCCUnits[12];
Dec(Idx);
end else if Digits>8 then
begin
Buff[Idx] := CCCUnits[8];
Dec(Idx);
end;
end;
end;
Buff[Idx] := CCCUnits[Digits];
Dec(Idx);
Buff[Idx] := CCCNumbers[W];
Dec(Idx);
//Do Split
ZeroFlag := 0;
while U<>0 do
begin
Inc(Digits);
DivMod(U, 10, U, W);
if Digits in [4,8,12,17] then
begin
if ZeroFlag>0 then
begin
Buff[Idx] := CCCNumbers[0];
Dec(Idx);
end else if (ZeroFlag<0) and (Digits>8) then
Inc(Idx);
Buff[Idx] := CCCUnits[Digits];
Dec(Idx);
if W<>0 then
begin
Buff[Idx] := CCCNumbers[W];
Dec(Idx);
ZeroFlag := 0;
end else
ZeroFlag := -1;
end else begin
if W<>0 then
begin
if ZeroFlag>0 then
begin
Buff[Idx] := CCCNumbers[0];
Dec(Idx);
end;
Buff[Idx] := CCCUnits[Digits];
Dec(Idx);
Buff[Idx] := CCCNumbers[W];
Dec(Idx);
ZeroFlag := 0;
end else begin
if ZeroFlag=0 then
ZeroFlag := 1;
end;
end;
end;

if Negative then
Buff[Idx] := CCCNegative
else Inc(Idx);

//Copy Result
Digits := 38+1-idx;
SetLength(Result, Digits);
Move(Buff[idx], PChar(Result)^, Digits * SizeOf(WideChar));
Exit;
end;
end;
Result := CCCNumbers[0]+CCCUnits[4]+CCCZheng;
end;

function CurrencyToString(const AValue: Currency; const ADecimals: Cardinal=4): string;
const
NegativeChar = '-';
DecimalDotChar = '.';
var
U: UInt64;
Digits: Integer;
Negative: Boolean;
begin
U := PUInt64(@AValue)^;
Negative := (U and \$8000000000000000) <> 0;
if Negative then
U := not U + 1;
Result := UIntToStr(U);
if Digits<4 then
Result := Result.Insert(Result.Length+Digits-4, DecimalDotChar);
if Negative then
Result := NegativeChar + Result;
end;

end.``````

1. 阿拉伯金额数字中间有“0”时，人民币大写要写“零”字。如￥1409.50，应写成人民币陆壹仟肆佰零玖元伍角。
2. 阿拉伯金额数字中间连续有几个“0”时，人民币大写金额中间可以只写一个“零”字。如￥6007.14，应写成人民币陆仟零柒元壹角肆分。
3. 阿拉伯金额数字万位和元位是“0”；或者数字中间连续有几个“0”，万位（或元位）也是“0”，但千位（或角位）不是“0”时；中文大写金额中可以只写一个零字，也可以不写“零”字。如￥1680.32，应写成人民币壹仟陆佰捌拾元零叁角贰分或者写成人民币壹仟陆佰捌拾元叁角贰分。又如￥107000.53，应写成人民币壹拾万柒仟元零伍角叁分或者写成人民币壹拾万零柒仟元伍角叁分。
4. 阿拉伯金额数字角位是“0”，而分位不是“0”时，中文大写金额“元”后面应写“零”字。如￥16409.02，应写成人民币壹万陆仟肆佰零玖元零贰分，又如￥325.04.应写成人民币叁佰贰拾伍元零肆分。
————————————————

o

### osc_5yejhemb

SQLServer实现split分割字符串到列

cwalet
2014/05/21
9.5K
0

2013/11/09
5.2K
8

huanganiu
2013/01/23
4.4K
0

Codgen是一个基于数据库元数据模型，使用freemarker模板引擎来构建输出的代码生成器。freemarker的数据模型结构通常来说都是一个Map树状结构模型，codgen也不例外，它的数据模型这棵树的根节...

2013/01/29
1.4W
2
MySQL全文搜索引擎--mysqlcft

MySQL在高并发连接、数据库记录数较多的情况下，SELECT ... WHERE ... LIKE '%...%'的全文搜索方式不仅效率差，而且以通配符%开头作查询时，使用不到索引，需要全表扫描，对数据库的压力也很...

2012/11/29
1.6W
2

osc_veyfyz58
7分钟前
0
0
【科创人独家】华旦天使张洁：风口是创业者的造物，投资本质是件农活

osc_lc4icfkt
9分钟前
0
0

osc_ju8o7gji
9分钟前
0
0

osc_5h5udyht
11分钟前
0
0
Oracle 锁排查SQL

osc_qgfjs4a5
12分钟前
0
0