SQL函数 人民币大写SQL函数 人民币大写
CREATE FUNCTION Dbo.RmbDx
(@Rmb Decimal(13,2))
RETURNS nvarchar(50) AS
BEGIN
Declare @Dx nvarchar(50)
Declare @Part tinyint
Declare @IntergerPart varchar(11)
Declare @DecimalPart varchar(2)
Declare @i int
Declare @p int
Declare @d char(1...
SQL函数 人民币大写
CREATE FUNCTION Dbo.RmbDx
(@Rmb Decimal(13,2))
RETURNS nvarchar(50) AS
BEGIN
Declare @Dx nvarchar(50)
Declare @Part tinyint
Declare @IntergerPart varchar(11)
Declare @DecimalPart varchar(2)
Declare @i int
Declare @p int
Declare @d char(1)
Declare @quotient int
Declare @modulus int
Declare @ZeroCount int
Set @Dx=''
set @Part=Charindex('.',convert(varchar(14),@Rmb))
if @Part0
Begin
Set @ZeroCount=0
Set @i=0
While @i0
Set @Dx=@Dx+dbo.rmbdigits(0)
Set @ZeroCount=0
Set
@Dx=@Dx+dbo.rmbdigits(@d)+dbo.RmbRidicals(@modulus)
End
if @modulus='0' and @Zerocount<4
Set @Dx=rtrim(@Dx)+dbo.RmbBigRidicals(@quotient)
set @i=@i+1
End
Set @Dx=rtrim(@Dx)+'元'
End
--小数部分
if @DecimalPart<>'00'
Begin
Set @i=0
While @i'0'
Set @Dx=@Dx+dbo.rmbdigits(@d)+dbo.rmbDecimals(@i)
set @i=@i+1
End
End
If @Dx='' Set @Dx='零元'
if @DecimalPart='00' and @Dx<>'零元' set @Dx=@Dx+'整'
Return @Dx
END
CREATE FUNCTION dbo.RmbRidicals
(@xh Tinyint)
RETURNS nchar(1) AS
BEGIN
Declare @ChineseRidicals nchar(1)
if @Xh=0 set @ChineseRidicals=''
if @Xh=1 set @ChineseRidicals='拾'
if @Xh=2 set @ChineseRidicals='佰'
if @Xh=3 set @ChineseRidicals='仟'
return @ChineseRidicals
END
CREATE FUNCTION dbo.RmbDigits (@xh Tinyint)
RETURNS nchar(1) AS
BEGIN
Declare @ChineseDigits nchar(1)
if @Xh=0 set @ChineseDigits='零'
if @Xh=1 set @ChineseDigits='壹'
if @Xh=2 set @ChineseDigits='贰'
if @Xh=3 set @ChineseDigits='叁'
if @Xh=4 set @ChineseDigits='肆'
if @Xh=5 set @ChineseDigits='伍'
if @Xh=6 set @ChineseDigits='陆'
if @Xh=7 set @ChineseDigits='柒'
if @Xh=8 set @ChineseDigits='捌'
if @Xh=9 set @ChineseDigits='玖'
return @ChineseDigits
END
CREATE FUNCTION dbo.RmbBigRidicals (@xh Tinyint)
RETURNS nchar(1) AS
BEGIN
Declare @ChineseBigRidicals nchar(1)
if @Xh=0 set @ChineseBigRidicals=''
if @Xh=1 set @ChineseBigRidicals='万'
if @Xh=2 set @ChineseBigRidicals='亿'
return @ChineseBigRidicals END
CREATE FUNCTION dbo.RmbDecimals (@xh Tinyint)
RETURNS nchar(1) AS
BEGIN
Declare @ChineseDecimals nchar(1)
if @Xh=0 set @ChineseDecimals='角'
if @Xh=1 set @ChineseDecimals='分'
return @ChineseDecimals
END
本文档为【SQL函数 人民币大写】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。