set ANSI_NULLS ON set QUOTED_IDENTIFIER ON go alter FUNCTION [dbo].[fn_numToChn] (@num numeric(14,2)) RETURNS nvarchar(100) AS BEGIN --版權所有：ahshow DECLARE @n_data nVARCHAR(20),@c_data nVARCHAR(100),@n_str nVARCHAR(10),@i int
SET @n_data=RIGHT(SPACE(14)+CAST(CAST(ABS(@num*100) AS bigint) AS nvarchar(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( N’零壹貳叁肆伍陸柒捌玖’,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( N’仟佰拾億仟佰拾萬仟佰拾圓角分’,@i,1) IF SUBSTRING(@c_data,LEN(@c_data)-1,2)= N’億萬’ 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
