SQL金额转换大写

End
If Patindex('%_零[元]%',@UpperStr) <> 0 --把类似拾零元或百零元中间的零清空掉
Begin
Select @UpperStr = Stuff(@UpperStr,Patindex('%_零[元]%',@UpperStr) + 1,1,'')
Set @LowerLen = Len(@LowerStr) --获取小写金额的总长度(包括四个小数位)
Select @i = 1,@UpperStr = '',@UpperTmp = '' --设置默认初始值
While @i <= @LowerLen
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
If Right(@UpperStr,1) = '零' Set @UpperStr = Left(@UpperStr,Len(@UpperStr)-1) --如果最后一位是零也清空掉
If @UpperStr = '元整' Set @UpperStr = '零' + @UpperStr --如果只是0的话，就显示零元整
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 '3' Then '叁'
When '4' Then '肆'
When '5' Then '伍'
Set @LowerStr = @LowerMoney --把Decimal型的值全部赋给字符串变量 注:(赋值过去的话如8 在字符串变量中是显示8.0000 因为小数位精确到四位,没有的话，它会自动补0)
Set @LowerStr = Replace(@LowerStr,'.','') --把小数点替换成空字符 --精确到小数点的四位 角分厘毫
+ Case @i%4
When 2 Then '拾' --拾 6 10 14 18 22 26 30 34 38 …………
--When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' Then ''
Else
+ Case SubString(@LowerStr,@LowerLen - @i + 1,1) --看当前位是数字几,就直接替换成汉字繁体大写
End
While Patindex('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',@UpperStr) <> 0 --把类似拾零萬或佰pperStr = Stuff(@UpperStr,Patindex('%[仟佰拾]零[沟穰杼垓京兆亿萬]%',@UpperStr)+1,1,'')
When 1 Then '毫'
When 2 Then '厘'
When 3 Then '分'
Create Function LowerToUpper(@LowerMoney Decimal(38,4))
Returns Varchar(200) --返回的大写金额的字符
As
Begin
Declare @LowerStr Varchar(50) --小写金额
When '9' Then '玖'
End
+ Case @i
Return @UpperStr --返回大写金额
End
End
End
Set @UpperStr = Isnull(@UpperTmp,'') + Isnull(@UpperStr,'')
While Patindex('%零[仟佰拾角分厘毫零]%',@UpperStr) <> 0 --把零拾或零佰或零零变成一个零
Begin
Set @UpperStr = stuff(@UpperStr,patindex('%零[仟佰拾角分厘毫零]%',@UpperStr),2,'零')
When '6' Then '陆'
When '7' Then '柒'
When '8' Then '捌'
Set @i = @i + 1
End
If Convert(Int,Right(@LowerStr,4)) = 0 Set @UpperStr = Left(@UpperStr,Len(@UpperStr)-8) + '整' --判断小数位数是不是都是0,是0就可以取整
End
While Patindex('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',@UpperStr) <> 0 --把零萬或零亿的清空掉
Begin
Select @UpperStr = Stuff(@UpperStr,Patindex('%[沟穰杼垓京兆亿萬]零[沟穰杼垓京兆亿萬]%',@UpperStr)+1,2,'')
When 37 Then '沟' --Decimal型最大长度是38 后面的就不用再考虑了
Else
When '0' Then '零'
When '1' Then '壹'
When '2' Then '贰'
End
Else If (Patindex('零[元]%',@UpperStr) <> 0) And (Convert(Int,Right(@LowerStr,4)) <> 0) --判断当前否是零元开头，并且后面的四个小数不为0
Begin
Select @UpperStr = Stuff(@UpperStr,Patindex('零[元]%',@UpperStr),2,'') --把零元清空掉
Declare @UpperStr Varchar(200) --大写金额
Declare @UpperTmp Varchar(15) --大写金额的临时字符串
Declare @i Int --递增量
Declare @LowerLen Int --小写金额的总长度
When 13 Then '亿'
When 17 Then '兆'
When 21 Then '京'
When 4 Then '角'
When 5 Then '元'
When 9 Then '萬'
When 25 Then '垓'
When 29 Then '杼'
When 33 Then '穰'