您好,欢迎来到三六零分类信息网!老站,搜索引擎当天收录,欢迎发信息

SQL Server中文大写金额转化函数

2024/6/27 2:35:33发布47次查看
为了能够在报告中直接输入大写金额,本人编写了这个sql server的函数. 复制以下代码到sql server 查询分析器中运行,生成自定义函数 usf_chinesecost. 在查询语句中调用该函数就可以输出大写的金额了。 sql server 中文金额 大写金额 create function usf_ch
为了能够在报告中直接输入大写金额,本人编写了这个sql server的函数. 复制以下代码到sql server 查询分析器中运行,生成自定义函数 usf_chinesecost. 在查询语句中调用该函数就可以输出大写的金额了。
sql server 中文金额 大写金额 create function usf_chinesecost( @cost float)returns varchar(50)as----大写钱数----begin declare @returnstr varchar(50) if (@cost >= 1000000000) begin set @returnstr = '##########' return @returnstr end set @returnstr = '00000000000' set @returnstr = right(@returnstr + convert(varchar,convert(decimal(11,2),round(@cost,2))),12) set @returnstr = replace(@returnstr,'0','零') set @returnstr = replace(@returnstr,'1','壹') set @returnstr = replace(@returnstr,'2','贰') set @returnstr = replace(@returnstr,'3','叁') set @returnstr = replace(@returnstr,'4','肆') set @returnstr = replace(@returnstr,'5','伍') set @returnstr = replace(@returnstr,'6','陆') set @returnstr = replace(@returnstr,'7','柒') set @returnstr = replace(@returnstr,'8','捌') set @returnstr = replace(@returnstr,'9','玖') set @returnstr = @returnstr + '分' set @returnstr = stuff(@returnstr,len(@returnstr)-1,0,'角') set @returnstr = replace(@returnstr,'.','元') set @returnstr = stuff(@returnstr,len(@returnstr)-5,0,'拾') set @returnstr = stuff(@returnstr,len(@returnstr)-7,0,'百') set @returnstr = stuff(@returnstr,len(@returnstr)-9,0,'千') set @returnstr = stuff(@returnstr,len(@returnstr)-11,0,'万') set @returnstr = stuff(@returnstr,len(@returnstr)-13,0,'拾') set @returnstr = stuff(@returnstr,len(@returnstr)-15,0,'百') set @returnstr = stuff(@returnstr,len(@returnstr)-17,0,'千') set @returnstr = stuff(@returnstr,len(@returnstr)-19,0,'亿') set @returnstr = replace(@returnstr,'零亿','零') set @returnstr = replace(@returnstr,'零千','零') set @returnstr = replace(@returnstr,'零百','零') set @returnstr = replace(@returnstr,'零拾','零') set @returnstr = replace(@returnstr,'零零零','零') set @returnstr = replace(@returnstr,'零零','零') set @returnstr = replace(@returnstr,'零万','万') set @returnstr = replace(@returnstr,'零元','元') set @returnstr = replace(@returnstr,'零角','零') set @returnstr = replace(@returnstr,'零分','') while left(@returnstr,1) = '零' begin set @returnstr = right(@returnstr,len(@returnstr)-1) end if ((left(@returnstr,1)='万')) begin set @returnstr = right(@returnstr,len(@returnstr)-1) end if ((left(@returnstr,1)='元')) begin set @returnstr = right(@returnstr,len(@returnstr)-1) end while left(@returnstr,1) = '零' begin set @returnstr = right(@returnstr,len(@returnstr)-1) end while right(@returnstr,1) = '零' begin set @returnstr = left(@returnstr,len(@returnstr)-1) end set @returnstr = replace(@returnstr,'亿万','亿零') set @returnstr = replace(@returnstr,'零元','元') set @returnstr = replace(@returnstr,'零零零','零') set @returnstr = replace(@returnstr,'零零','零') if (@returnstr='') begin set @returnstr = '零元' end if ((right(@returnstr,1)='元')) begin set @returnstr = @returnstr + '整' end return @returnstrend
该用户其它信息

VIP推荐

免费发布信息,免费发布B2B信息网站平台 - 三六零分类信息网 沪ICP备09012988号-2
企业名录 Product