[FastReport]创建人民币大小写转换自定义函数

	设置如下:

	----------

	function TForm1.MoneyCn(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;

	//////////

	procedure TForm1.FormCreate(Sender: TObject);

	begin

	  frxReport1.AddFunction('function MoneyCn(mmje: Double): String;','Myfunction','小写金额转大写的函数');

	end;

	//////////

	function TForm1.frxReport1UserFunction(const MethodName: string;

	  var Params: Variant): Variant;

	begin

	  if UpperCase(MethodName) = UpperCase('MoneyCn') then

	    Result := MoneyCn(Params[0]);

	end;

	//////////

	报表中调用方法

	MoneyCn(500000)
登录
