$PBExportHeader$gf_getmoney.srf
$PBExportComments$获取金额的大写格式
global type gf_getmoney from function_object
end type
forward prototypes
global function string gf_getmoney (decimal dsum)
end prototypes
global function string gf_getmoney (decimal dsum);
/*---------------------------------
--功能描述：获取一个金额的大写格式
--参数及返回值说明：dsum:decimal类型
-- returnvaleu:string类型
---------------------------------*/
boolean digit = false
int i,n,length
string temp,temp1,temp2,upper1,upper2,upper = ""
upper1 = '零壹贰叁肆伍陆柒捌玖'
upper2 = '元拾佰仟万拾佰仟亿'
temp = string(dsum,"###.##")
length = len(temp)
if pos(temp,".")>0 then
temp1 = left(temp,pos(temp,".") - 1)
temp2 = right(temp,length - pos(temp,"."))
if integer(temp2) = 0 then temp2=""
else
temp1 = temp
temp2 =""
end if
length = len(temp1)
temp = ""
for i = 1 to length
n = integer(mid(temp1, i, 1))
if n=0 then //digit: true 表示上一数字为0
digit = true
continue
end if
if digit then temp = "零" + mid(upper1, n * 2 + 1, 2) else temp = mid(upper1, n * 2 + 1, 2)
digit = false
upper = upper + temp + mid(upper2, (length - i) * 2 + 1, 2)
next
if digit then upper = upper + "元"
temp=""
length = len(temp2)
choose case length
case 2
n=integer(right(temp2,1))
if n>0 then temp= mid(upper1,n*2+1,2) +"分"
i=integer(left(temp2,1))
if i>0 then upper = upper + mid(upper1,i*2+1,2) +"角" else upper = upper + mid(upper1,i*2+1,2)
upper = upper + temp
case 1
i=integer(left(temp2,1))
if i>0 then upper = upper + mid(upper1,i*2+1,2) +"角"
end choose
return upper + "整"
end function