人生路漫,与你相伴...

This script will create a UDF called FormatDate that allows you to format a date by simply supplying 
a format such as 'mm/dd/yyyy', 'yyyymmdd', 'dddd, mmmm d1, yyyy', etc. The comment header
 provides additional examples of how to use the function. The script has been tested on SQL Server 2000. 

Author: Rusty Hansen

Author: Rusty Hansen 8-21-2001
Description: Formats a date to a specific format.
Parameters:
     @dDate = A value or field of datatype datetime or a value or field that can be explicitly converted to 
              a datetime datatype.
     @sFormat varchar(40) = Format codes using the characters described below
       
     MMMM or DDDD = the full name for the day or month
     MMM or DDD = the first 3 letters of the month or day
     MM or DD = the two digit code signifying the month or day
     M1 or D1 = the month or day value without a preceding zero
     YYYY = a four digit year
     YY = a two digit year
     
     All other characters will not be replaced such as / - . * # a b z x % and will show
     up in the date in the same relative position that they appear in the format
     parameter.
     
     Examples
     select dbo.FormatDate('9/21/2001','dddd, mmmm d1, yyyy') --> Friday, September 21, 2001
     select dbo.FormatDate('9/21/2001','mm/dd/yyyy') --> 09/21/2001
     select dbo.FormatDate('9/21/2001','mm-dd-yyyy') --> 09/21/2001
     select dbo.FormatDate('9/21/2001','yyyymmdd') --> 20010921
     select dbo.FormatDate('9/5/2001','m1/d1/yy') --> 9/5/01
     select dbo.FormatDate('9/21/2001','mmm-yyyy') --> Sep-2001

//////////////////////////////////////////////////////////////////////////////////
*/

create function [dbo].[FormatDate]
     (
     @dDate datetime          --Date value to be formatted
     ,@sFormat varchar(40)    --Format for date value
     )
returns varchar(40)
as
begin

     -- Insert the Month
     -- ~~~~~~~~~~~~~~~~
     set @sFormat = replace(@sFormat,'MMMM',datename(month,@dDate))
     set @sFormat = replace(@sFormat,'MMM',convert(char(3),datename(month,@dDate)))
     set @sFormat = replace(@sFormat,'MM',right(convert(char(4),@dDate,12),2))
     set @sFormat = replace(@sFormat,'M1',convert(varchar(2),convert(int,right(convert(char(4),@dDate,12),2))))

     -- Insert the Day
     -- ~~~~~~~~~~~~~~
     set @sFormat = replace(@sFormat,'DDDD',datename(weekday,@dDate))
     set @sFormat = replace(@sFormat,'DDD',convert(char(3),datename(weekday,@dDate)))
     set @sFormat = replace(@sFormat,'DD',right(convert(char(6),@dDate,12),2))
     set @sFormat = replace(@sFormat,'D1',convert(varchar(2),convert(int,right(convert(char(6),@dDate,12),2))))

     -- Insert the Year
     -- ~~~~~~~~~~~~~~~
     set @sFormat = replace(@sFormat,'YYYY',convert(char(4),@dDate,112))
     set @sFormat = replace(@sFormat,'YY',convert(char(2),@dDate,12))

     -- Return the function's value
     -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~  
     return @sFormat
end

BEGIN 
    Declare    @String1    char(20)
    Declare    @String2    char(30)
    Declare    @String4    Varchar(100)
    Declare @String3     Varchar(100)    --从原A值中取出的值
    Declare @i         int        --循环变量
    Declare @J         Int        --A的值乘以100的字符串长度
    Declare @Ch1         Varchar(100)    --数字的汉语读法
    Declare @Ch2         Varchar(100)    --数字位的汉字读法
    Declare @Zero         Int        --用来计算连续有几个零
    Declare    @Returnvalue    VarChar(100)

    Select  @Returnvalue = ''
    Select     @String1 = '零壹贰叁肆伍陆柒捌玖'
    Select    @String2 = '万仟佰拾亿仟佰拾万仟佰拾元角分'

    Select @String4 = Cast(@ChangeMoney*100 as int)    

    select @J=len(cast((@ChangeMoney*100) as int))

    Select @String2=Right(@String2,@J)

    Select    @i = 1 

    while    @i<= @j Begin

        Select @String3 = Substring(@String4,@i,1)

        if @String3<>'0' Begin

            Select     @Ch1 = Substring(@String1, Cast(@String3 as Int) + 1, 1)
            Select    @Ch2 = Substring(@String2, @i, 1)
            Select    @Zero = 0                    --表示本位不为零
        end
        else Begin
            If (@Zero = 0) Or (@i = @J - 9) Or (@i = @J - 5) Or (@i = @J - 1)
                        Select @Ch1 = '零' 
                    Else
                        Select @Ch1 = ''

                    Select @Zero = @Zero + 1             --表示本位为0
                        
            --如果转换的数值需要扩大，那么需改动以下表达式 I 的值。
            Select @Ch2 = ''

                If @i = @J - 10  Begin
                        Select @Ch2 = '亿'
                        Select @Zero = 0
            end
                    
            If @i = @J - 6 Begin
                        Select @Ch2 = '万'
                        Select @Zero = 0
            end
                    
            if @i = @J - 2 Begin
                        Select @Ch2 = '元'
                        Select @Zero = 0
            end
                    
            If @i = @J 
                        Select @Ch2 = '整'
                        
        end    

        Select @Returnvalue = @Returnvalue + @Ch1 + @Ch2

        select @i = @i+1
    end

    --最后将多余的零去掉
    If CharIndex('仟仟',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '仟仟', '仟')

    If CharIndex('佰佰',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '佰佰', '佰')

        If CharIndex('零元',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '零元', '元')
    
        If CharIndex('零万',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '零万', '万')
   
        If CharIndex('零亿',@Returnvalue) <> 0
            Select @Returnvalue = Replace(@Returnvalue, '零亿', '亿')
    
        If CharIndex('零整',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '零整', '整')
    
    If CharIndex('零佰',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '零佰', '零')

    If CharIndex('零仟',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '零仟', '零')

    If CharIndex('元元',@Returnvalue) <> 0 
            Select @Returnvalue = Replace(@Returnvalue, '元元', '元')

    return @Returnvalue

END