在水晶报表，公式工作室中新建报表自定义函数，函数内容如下：
Function (stringvar number)
(
stringvar str1 := "零壹贰叁肆伍陆柒捌玖"; //0-9所对应的汉字
stringvar str2 := "万仟佰拾亿仟佰拾万仟佰拾元角分"; //数字位所对应的汉字
stringvar str3 := ""; //从原num值中取出的值
stringvar str4 := ""; //数字的字符串形式
stringvar str5 := ""; //人民币大写金额形式
numbervar i:=0; //循环变量
numbervar j:=0; //num的值乘以100的字符串长度
stringvar ch1 := ""; //数字的汉语读法
stringvar ch2 := ""; //数字位的汉字读法
numbervar nzero := 0; //用来计算连续的零值是几个
numbervar temp; //从原num值中取出的值
numbervar num := Round(Abs(tonumber(number)),2); //将num取绝对值并四舍五入取2位小数
str4 := totext(tonumber(num*100),0); //将num乘100并转换成字符串形式
str4:=replace(str4,",","");
j := Length(str4); //找出最高位
if j > 15 then
"字符串太长"
else
(
str2 := mid(str2,15-j+1); //取出对应位数的str2的值。如：200.55,j为5所以str2=佰拾元角分
//循环取出每一位需要转换的值
for i:=1 to j step 1 do
(
str3 :=mid(str4,i,1); //取出需转换的某一位的值
temp := int(tonumber(str3)); //转换为数字
if (i <> (j-3) and i <> (j-7) and i <> (j-11) and i <> (j-15)) then
(
//当所取位数不为元、万、亿、万亿上的数字时
if (str3 = "0") then
(
ch1 := "";
ch2 := "";
nzero := nzero + 1;
)
else
(
if(str3 <> "0" and nzero <> 0) then
(
ch1 := "零" + mid(str1,temp*1+1,1);
ch2 := mid(str2,i,1);
nzero := 0;
)
else
(
ch1 := mid(str1,temp*1+1,1);
ch2 := mid(str2,i,1);
nzero := 0;
)
)
)
else
(
//该位是万亿，亿，万，元位等关键位
if (str3 <> "0" and nzero <> 0) then
(
ch1 := "零" + mid(str1,temp*1+1,1);
ch2 := mid(str2,i,1);
nzero := 0;
)
else
(
if (str3 <> "0" and nzero = 0) then
(
ch1 := mid(str1,temp*1+1,1);
ch2 := mid(str2,i,1);
nzero := 0;
)
else
(
if (str3 = "0" and nzero >= 3) then
(
ch1 := "";
ch2 := "";
nzero := nzero + 1;
)
else
(
if (j >= 11) then
(
ch1 := "";
nzero := nzero + 1;
)
else
(
ch1 := "";
ch2 := mid(str2,i,1);
nzero := nzero + 1;
)
)
)
)
);
if (i = (j-11) or i = (j-3)) then
(
if(mid(str4,j,1)="0" and mid(str4,j-1,1)="0" and mid(str4,j-2,1)="0" and mid(str4,j-3,1)="0") then
(
ch2:='元';////460000.00-肆拾陆万拾整
)
else if(j=6 and mid(str4,j,1)="0" and mid(str4,j-1,1)="0" and mid(str4,j-3,1)="0") then
(
ch2:='';////1408.00-壹仟肆佰拾零捌元整
)
else if((j=5 or j=6) and mid(str4,j,1)="0" and mid(str4,j-1,1)<>"0" and mid(str4,j-2,1)="0") then
(
ch2:=ch2+'元';////3590.40-叁仟伍佰玖拾零肆角/770.70-柒佰柒拾零柒角
)
else if(j=7 and mid(str4,j-3,1)="0" and mid(str4,j-2,1)<>"0") then
(
ch2:='';////14704.00-壹万肆仟柒佰拾零肆元整
)
else
(
//如果该位是亿位或元位，则必须写上
ch2 := mid(str2,i,1);
)
) ;
if(j=8 and i=3 and mid(str4,j-5,1)="0" and mid(str4,j-6,1)="0") then
(
ch2:='万';////100800.00-壹拾零捌佰元整
);
str5 := str5 + ch1 + ch2;
if (i = j-1 and str3 = "0") then
(
////80.00-捌拾整
if(InStr(str5, '元') = 0) then
(
str5 := str5 + '元';
);
//最后一位（分）为0时，加上“整”
str5 := str5 + '整';
) ;
);
if (num = 0) then
(
str5 := "零元整";
) ;
str5
)
)
