金额小写转大写 sql函数 & excel-vba fun.doc

文档介绍：--功能:用于将小写的数值翻译成大写的字符串(支持到分,即小数点后两位)--入口参数:***@um------数字型变量--返回:字符串--举例:()--结果为“陆佰贰拾叁元捌角捌分”ALTERFUNCTION[dbo].[fn_ChnMoney_New](***@umdecimal(18,2))RETURNSvarchar(200)******@chvNumvarchar(200)******@chvMoneyvarchar(200)******@chvTempvarchar(200)******@******@******@chvTempIvarchar(200)******@chvReturnvarchar(200)******@******@sFsFlag=******@um=******@chvMoney='零'******@um<******@sFsFlag=******@um=ABS(***@um)******@chvTemp=convert(varchar(200),Round(***@um*100,0))IFcharindex('.',***@chvTemp,1)>******@chvNum=left(***@chvTemp,charindex('.',***@chvTemp,1)-1)******@chvNum=***@******@intIntLen=len(***@chvNum)******@chvMoney=''******@chvReturn=''******@intI=******@intI<=***@******@chvTempI=substring(***@chvNum,***@intIntLen-***@intI+1,1)******@chvMoney=substring('零壹贰叁肆伍陆柒捌玖',convert(int,***@chvTempI)+1,1)+substring('分角元拾佰仟万拾佰仟亿拾佰仟兆拾佰仟京拾佰仟',(***@intI-1)+1,1)******@intI=***@intI+******@chvReturn=***@chvMoney+***@******@chvReturn=Replace(***@chvReturn,'零仟','零')******@chvReturn=Replace(***@chvReturn,'零佰','零')******@chvReturn=Replace(***@chvReturn,'零拾','零')whilecharindex('零零',***@chvReturn,1)>******@chvReturn=Replace(***@chvReturn,'零零','零')******@chvReturn=Replace(***@chvReturn,'零兆','兆')******@chvReturn=Replace(***@chvReturn,'零亿','亿')******@chvReturn=Replace(***@chvReturn,'零万','万')******@chvReturn=Replace(***@chvReturn,'零元','元')******@chvReturn=Replace(***@chvRetur