现在的位置: 首页 > 综合 > 正文

SmallTOBig

2013年12月09日 ⁄ 综合 ⁄ 共 799字 ⁄ 字号 评论关闭
function SmallTOBig(small: real): string;
var
  SmallMonth, BigMonth: string;
  wei1, qianwei1: string[2];
  qianwei, dianweizhi, qian: integer;
begin
  qianwei := -2;
  Smallmonth := formatfloat('0.00', small);
  dianweizhi := pos('.', Smallmonth);
  for qian := length(Smallmonth) downto 1 do
  begin
    if qian <> dianweizhi then {如果读到的不是小数点就继续}
    begin
      case strtoint(copy(Smallmonth, qian, 1)) of
        1: wei1 := '壹'; 2: wei1 := '贰';
        3: wei1 := '叁'; 4: wei1 := '肆';
        5: wei1 := '伍'; 6: wei1 := '陆';
        7: wei1 := '柒'; 8: wei1 := '捌';
        9: wei1 := '玖'; 0: wei1 := '零';
      end;
      case qianwei of
        -3: qianwei1 := '厘';
        -2: qianwei1 := '分';
        -1: qianwei1 := '角';
        0: qianwei1 := '元';
        1: qianwei1 := '拾';
        2: qianwei1 := '佰';
        3: qianwei1 := '仟';
        4: qianwei1 := '万';
        5: qianwei1 := '拾';
        6: qianwei1 := '佰';
        7: qianwei1 := '千';
        8: qianwei1 := '亿';
        9: qianwei1 := '十';
        10: qianwei1 := '佰';
        11: qianwei1 := '仟';
      end;
      inc(qianwei);
      BigMonth := wei1 + qianwei1 + BigMonth;
    end;
  end;
  SmallTOBig := BigMonth;
end;

 

抱歉!评论已关闭.