数据库-函数-数字到大写金额转换-MSSQL版本

--oracle or mssql2005

IF OBJECT_ID ( 'dbo.f_num_chn', 'FN' ) IS NOT NULL

DROP FUNCTION dbo.f_num_chn

go

CREATE FUNCTION [dbo].[f_num_chn] (@num numeric(14,2))

RETURNS varchar(100) WITH ENCRYPTION

AS

BEGIN

DECLARE @n_data VARCHAR(20),@c_data VARCHAR(100),@n_str VARCHAR(10),@i int

 

SET @n_data=RIGHT(SPACE(14)+CAST(CAST(ABS(@num*100) AS bigint) AS varchar(20)),14)

SET @c_data=''

SET @i=1

WHILE @i<=14

BEGIN

SET @n_str=SUBSTRING(@n_data,@i,1)

IF @n_str<>' '

BEGIN

IF not ((SUBSTRING(@n_data,@i,2)='00') or

((@n_str='0') and ((@i=4) or (@i=8) or (@i=12) or (@i=14))))

SET @c_data=@c_data+SUBSTRING('零壹贰叁肆伍陆柒捌玖',CAST(@n_str AS int)+1,1)

IF not ((@n_str='0') and (@i<>4) and (@i<>8) and (@i<>12))

SET @c_data=@c_data+SUBSTRING('仟佰拾亿仟佰拾万仟佰拾元角分',@i,1)

IF SUBSTRING(@c_data,LEN(@c_data)-1,2)='亿万'

SET @c_data=SUBSTRING(@c_data,1,LEN(@c_data)-1)

END

SET @i=@i+1

END

IF @num<0

SET @c_data='负'+@c_data

IF @num=0

SET @c_data='零元'

IF @n_str='0'

SET @c_data=@c_data+'整'

RETURN(@c_data)

END

go

测试:

select *,dbo.f_num_chn(金额) as 大写 from 数据表名

select dbo.f_num_chn(12345.67) as 大写