返回首页

sql函数,输入小写金额,输出大写金额

时间:2011-10-17 18:53来源:知行网www.zhixing123.cn 编辑:麦田守望者

//功能:小写金额转换成大写 //参数:@LowerMoney 小写金额 加上小数点最长可以保留38位 //输出:大写金额 //简介:SQL版 小写金额转换成大写金额(最多可以精确到小数点四位) //注: Decimal 数据类型最多可存储 38 个数字 SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO Create Function LowerToUpper(@LowerMoney Decimal(38,4)) Returns Varchar(200) --返回的大写金额的字符 As Begin Declare @LowerStr Varchar(50) --小写金额 Declare @UpperStr Varchar(200) --大写金额 Declare @UpperTmp Varchar(15) --大写金额的临时字符串 Declare @i Int --递增量 Declare @LowerLen Int --小写金额的总长度 Set @LowerStr = @LowerMoney --把Decimal型的值全部赋给字符串变量 注:(赋值过去的话如8 在字符串变量中是显示8.0000 因为小数位精确到四位,没有的话,它会自动补0) Set @LowerStr = Replace(@LowerStr,'.','') --把小数点替换成空字符 --精确到小数点的四位 角分厘毫 Set @LowerLen = Len(@LowerStr) --获取小写金额的总长度(包括四个小数位) Select @i = 1,@UpperStr = '',@UpperTmp = '' --设置默认初始值 While @i <= @LowerLen Begin Set @UpperTmp = Case When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' And @i = 5 And (Convert(Int,Right(@LowerStr,4)) = 0 Or @LowerLen > 5) Then '元' --注:如果个位为0的话,并且四位小数都是0或者它的长度超过5(也就是超过元),则为元 --When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' Then '' Else + Case SubString(@LowerStr,@LowerLen - @i + 1,1) --看当前位是数字几,就直接替换成汉字繁体大写 When '0' Then '零' When '1' Then '壹' When '2' Then '贰' When '3' Then '叁' When '4' Then '肆' When '5' Then '伍' When '6' Then '陆' When '7' Then '柒' When '8' Then '捌' When '9' Then '玖' End + Case @i When 1 Then '毫' When 2 Then '厘' When 3 Then '分' When 4 Then '角' When 5 Then '元' When 9 Then '萬' When 13 Then '亿' When 17 Then '兆' When 21 Then '京' When 25 Then '垓' When 29 Then '杼' When 33 Then '穰' When 37 Then '沟' --Decimal型最大长度是38 后面的就不用再考虑了 Else + Case @i%4 When 2 Then '拾' --拾 6 10 14 18 22 26 30 34 38 ………… When 3 Then '佰' --佰 7 11 15 19 23 27 31 35 39 ………… When 0 Then '仟' --仟 8 12 16 20 24 28 32 36 40 ………… End End End Set @UpperStr = Isnull(@UpperTmp,'') + Isnull(@UpperStr,'') Set @i = @i + 1 End If Convert(Int,Right(@LowerStr,4)) = 0 Set @UpperStr = Left(@UpperStr,Len(@UpperStr)-8) + '整' --判断小数位数是不是都是0,是0就可以取整 While Patindex('%零[仟佰拾角分厘毫零]%',@UpperStr) <> 0 --把零拾或零佰或零零变成一个零 Begin Set @UpperStr = stuff(@UpperStr,patindex('%零[仟佰拾角分厘毫零]%',@UpperStr),2,'零') End While Patindex('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',@UpperStr) <> 0 --把零萬或零亿的清空掉 Begin Select @UpperStr = Stuff(@UpperStr,Patindex('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',@UpperStr)+1,2,'') End While Patindex('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',@UpperStr) <> 0 --把类似拾零萬或佰零萬或仟零萬中间的零清空掉 Begin Select @UpperStr = Stuff(@UpperStr,Patindex('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',@UpperStr)+1,1,'') End If Patindex('%_零[元]%',@UpperStr) <> 0 --把类似拾零元或百零元中间的零清空掉 Begin Select @UpperStr = Stuff(@UpperStr,Patindex('%_零[元]%',@UpperStr) + 1,1,'') End Else If (Patindex('零[元]%',@UpperStr) <> 0) And (Convert(Int,Right(@LowerStr,4)) <> 0) --判断当前否是零元开头,并且后面的四个小数不为0 Begin Select @UpperStr = Stuff(@UpperStr,Patindex('零[元]%',@UpperStr),2,'') --把零元清空掉 End If Right(@UpperStr,1) = '零' Set @UpperStr = Left(@UpperStr,Len(@UpperStr)-1) --如果最后一位是零也清空掉 If @UpperStr = '元整' Set @UpperStr = '零' + @UpperStr --如果只是0的话,就显示零元整 Return @UpperStr --返回大写金额 End GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO --调用方法 Select dbo.LowerToUpper(120000000) --壹亿贰仟萬元整 Select dbo.LowerToUpper(102000000) --壹亿零贰佰萬元整 Select dbo.LowerToUpper(100200000) --壹亿零贰拾萬元整 Select dbo.LowerToUpper(100020000) --壹亿零贰萬元整 Select dbo.LowerToUpper(100002000) --壹亿贰仟元整

------分隔线----------------------------
标签(Tag):SQLServer数据库 数据库
------分隔线----------------------------
推荐内容
  • SQL Server 2008 sa登录报18456错误的解决方法

    许多人用SQL Server用的时间长了会自动报18456错误,SQL Server 18456错误应该说很好...

  • Windows 2003 IIS如何启用Gzip压缩的方法

    经常看到网上有人提问说:开GZIP压缩有什么好处?Gzip开启以后会将输出到用户浏览器的...

  • IIS自定义404错误页面提示系统找不到指定的文件问题

    我们在IIS站点属性里面设置了自定义的404错误页面为一个文件之后,不知道为什么一直不...

  • 支持IPv4与IPv6双协议栈的Web服务器设计实践教程

    嵌入式Web技术因其跨平台的特点得到了广泛的应用[1]。用户只需要登录浏览器即可实现对...

  • SQL查询中回表对性能的影响

    运营反馈某个功能速度很慢,查了一下,定位到如下 SQL: select id from user where n...

  • 高校数据安全全过程管理实践教程

    《网络安全法》出台后,以法律的形式明确要求各类组织切实承担起保障数据安全的责任,...

  • 猜你感兴趣
  • 教育技术学动态
  • 教育技术学论文
  • 理论研究
  • 应用研究
  • 资源收藏
  • 百家观点
  • 英文文献
  • 中国电化教育
  • 电化教育研究
  • 中国远程教育
  • 开放教育研究
  • 现代教育技术
  • 远程教育杂志
  • 现代远距离教育
  • 中国教育信息化
  • 中国信息技术教育
  • 中小学信息技术
  • Flash龙8娱乐官网手机版
  • Photoshop龙8娱乐官网手机版
  • 3DMAX龙8娱乐官网手机版
  • AutoCAD龙8娱乐官网手机版
  • CorelDRAW龙8娱乐官网手机版
  • Matlab龙8娱乐官网手机版
  • 其他龙8娱乐官网手机版
  • .Net龙8娱乐官网手机版
  • Asp龙8娱乐官网手机版
  • Php龙8娱乐官网手机版
  • Jsp龙8娱乐官网手机版
  • Ajax龙8娱乐官网手机版
  • Android教程
  • 其他龙8娱乐官网手机版
  • Word教程
  • Excel教程
  • PowerPoint教程
  • Ubuntu教程
  • 其他教程
  • 课件下载
  • 软件下载
  • 视频教程下载
  • 其他下载
  • 教案大全
  • 试题大全
  • 课件大全
  • 其他大全
  • 人像摄影
  • 风光摄影