建站
咨詢
售后
建站咨詢
新聞中心
下面為您介紹的SQL函數(shù)功能是將小寫金額轉換成大寫，如果您在此方面遇到過問題，不妨一看，相信對您學習SQL函數(shù)能夠有所幫助。
為寶山等地區(qū)用戶提供了全套網頁設計制作服務，及寶山網站建設行業(yè)解決方案。主營業(yè)務為做網站、成都做網站、寶山網站設計，以傳統(tǒng)方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！
參數(shù)：@LowerMoney 小寫金額 加上小數(shù)點最長可以保留38位
輸出：大寫金額
簡介：SQL版 小寫金額轉換成大寫金額（最多可以精確到小數(shù)點四位）
注： Decimal 數(shù)據(jù)類型最多可存儲 38 個數(shù)字
轉載：請保留以上信息,謝謝?。?！
********************************************************/
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 因為小數(shù)位精確到四位,沒有的話，它會自動補0)
Set @LowerStr = Replace(@LowerStr,'.','') --把小數(shù)點替換成空字符 --精確到小數(shù)點的四位 角分厘毫
Set @LowerLen = Len(@LowerStr) --獲取小寫金額的總長度(包括四個小數(shù)位)
Select @i = 1,@UpperStr = '',@UpperTmp = '' --設置默認初始值
While @i <= @LowerLen
Begin
Set @UpperTmp = Case #p#
When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' And @i = ***nd (Convert(Int,Right(@LowerStr,4)) = 0 Or @LowerLen > 5) Then '元' --注：如果個位為0的話,并且四位小數(shù)都是0或者它的長度超過5(也就是超過元)，則為元
--When SubString(@LowerStr,@LowerLen - @i + 1,1) = '0' Then ''
Else
+ Case SubString(@LowerStr,@LowerLen - @i + 1,1) --看當前位是數(shù)字幾,就直接替換成漢字繁體大寫
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 #p#
+ 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) + '整' --判斷小數(shù)位數(shù)是不是都是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) --判斷當前否是零元開頭，并且后面的四個小數(shù)不為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 #p#
--調用方法
Select dbo.LowerToUpper(120000000) --壹億貳仟萬元整
Select dbo.LowerToUpper(102000000) --壹億零貳佰萬元整
Select dbo.LowerToUpper(100200000) --壹億零貳拾萬元整
Select dbo.LowerToUpper(100020000) --壹億零貳萬元整
Select dbo.LowerToUpper(100002000) --壹億貳仟元整
【編輯推薦】
去掉參數(shù)內HTML代碼的SQL函數(shù)
sql函數(shù)生成助記碼的實例
SQL中表變量的不足
詳解SQL中循環(huán)結構的使用
SQL循環(huán)執(zhí)行while控制
當前名稱：輸入小寫金額，輸出大寫金額的SQL函數(shù)寫法
網頁URL：http://m.fisionsoft.com.cn/article/cddihcg.html
