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

飞狼兄

于 2019-10-27 21:03:37 发布

阅读量346

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi专栏文章标签： Delphi 大写金额

本文链接：https://blog.youkuaiyun.com/fying168/article/details/102771613

这是一个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 -