贡献一个函数 Delphi 取大写金额： 123.12 -> 壹百贰拾叁元壹角贰分

最新推荐文章于 2023-12-19 22:37:56 发布

原创

最新推荐文章于 2023-12-19 22:37:56 发布 · 346 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #大写金额

这是一个Delphi函数，用于将小数形式的金额转换为中文大写金额字符串。例如，123.12会被转换为'壹百贰拾叁元壹角贰分'。函数首先处理负数和超出一定范围的数值，然后逐位转换数字并添加相应的中文单位。最后，根据需要添加'整'字。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function FloatToCCurrency(lfCurrency: Extended): string;
const
sCNumber: array['0'..'9'] of string[2] = ('零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖');
sCUnit: array[0..14] of string[2] = ('万', '仟', '佰', '拾', '亿', '仟', '佰', '拾', '万', '仟', '佰', '拾', '元', '角', '分');
var
lfAbsCur: Extended;
sStr: string;
iCurPos, iBegPos, iLen: Integer;
bZeroAdded: Boolean;
begin
lfAbsCur := Abs(lfCurrency);
if lfAbsCur < 0.01 then
Result := '零'
else if lfAbsCur > 100000000000.00 then
Result := '**'
else
begin
if lfCurrency < 0 then
Result := '负'
else
Result := '';
bZeroAdded := False;
sStr := FormatFloat('#', lfAbsCur * 100);
iLen := Length(sStr);
iBegPos := 15 -