sql农历转换函数(显示中文格式，加入润月的显示)

创建农历日期函数

if object_id('fn_getlunar') is not null

drop function fn_getlunar

go

create function dbo.fn_getlunar(@solarday datetime)

returns nvarchar(30)

as

begin

declare @soldata int

declare @offset int

declare @ilunar int

declare @i int

declare @j int

declare @ydays int

declare @mdays int

declare @mleap int

declare @mleap1 int

declare @mleapnum int

declare @bleap smallint

declare @temp int

declare @year nvarchar(10)

declare @month nvarchar(10)

declare @day nvarchar(10)

declare @chinesenum nvarchar(10)

declare @outputdate nvarchar(30)

set @offset=datediff(day,'1900-01-30',@solarday)

--确定农历年开始

set @i=1900

--set @offset=@soldata

while @i<2050 and @offset>0

begin

set @ydays=348

set @mleapnum=0

select @ilunar=dataint from solardata where

--传回农历年的总天数

set @j=32768

while @j>8

begin

if @ilunar & @j >0

set @ydays=@ydays+1

set @j=@j/2

end

--传回农历年闰哪个月 1-12 , 没闰传回 0

set @mleap = @ilunar & 15

--传回农历年闰月的天数 ,加在年的总天数上

if @mleap > 0

begin

if @ilunar & 65536 > 0

set @mleapnum=30

else

set @mleapnum=29

set @ydays=@ydays+@mleapnum

end

set @offset=@offset-@ydays

set @i=@i+1

end

if @offset <= 0

begin

set @offset=@offset+@ydays

set @i=@i-1

end

--确定农历年结束

set @year=@i

--确定农历月开始

set @i = 1

select @ilunar=dataint from solardata where

--判断那个月是润月

set @mleap = @ilunar & 15

set @bleap = 0

while @i < 13 and @offset > 0

begin

--判断润月

set @mdays=0

if (@mleap > 0 and @i = (@mleap+1) and @bleap=0)

begin--是润月

set @i=@i-1

set @bleap=1

set @mleap1= @mleap

--传回农历年闰月的天数

if @ilunar & 65536 > 0

set @mdays = 30

else

set @mdays = 29

end

else

--不是润月

begin

set @j=1

set @temp = 65536

while @j<

begin

set @temp=@temp/2

set @j=@j+1

end

if @ilunar & @temp > 0

set @mdays = 30

else

set @mdays = 29

end

--解除润月

if @bleap=1 and @i= (@mleap+1)

set @bleap=0

set @offset=@offset-@mdays

set @i=@i+1

end

if @offset <= 0

begin

set @offset=@offset+@mdays

set @i=@i-1

end

--确定农历月结束

set @month=@i

--确定农历日结束

set @day=ltrim(@offset)

--输出日期

set @chinesenum=n'0一二三四五六七八九十'

while len(@year)>0

select @outputdate=isnull(@outputdate,'')

+ substring(@chinesenum,left(@year,1)+1,1)

, @year=stuff(@year,1,1,'')

set @outputdate=@outputdate+n'年'

+ case @mleap1 when @month then n'润' else '' end

if cast(@month as int)<10

set @outputdate=@outputdate

+ case @month when 1 then n'正'

else substring(@chinesenum,left(@month,1)+1,1)

end

else if cast(@month as int)>=10

set @outputdate=@outputdate

+ case @month when '10' then n'十' when 11 then n'十一'

else n'十二' end

set @outputdate=@outputdate + n'月'

if cast(@day as int)<10

set @outputdate=@outputdate + n'初'

+ substring(@chinesenum,left(@day,1)+1,1)

else if @day between '10' and '19'

set @outputdate=@outputdate

+ case @day when '10' then n'初十' else n'十'+

substring(@chinesenum,right(@day,1)+1,1) end

else if @day between '20' and '29'

set @outputdate=@outputdate

+ case @day when '20' then n'二十' else n'廿' end

+ case @day when '20' then n'' else

substring(@chinesenum,right(@day,1)+1,1) end

else

set @outputdate=@outputdate+n'三十'

return @outputdate

end

go

select dbo.fn_getlunar(getdate()) as [改编日期(农历)],

getdate() as [改编日期(公历)]

/*

改编日期(农历) 改编日期(公历)

------------------ -----------------------

二0一0年三月十一 2010-04-24 07:01:17.340

(1 行受影响)

*/

select convert(char(10),dateadd(d,number,'2008-1-1'),23) as 公历,

dbo.fn_getlunar(dateadd(d,number,'2008-1-1')) as 农历

from master..spt_values

where type='p'

/*

公历 农历

---------- ------------------------------

2008-01-01 二00七年十一月廿三

2008-01-02 二00七年十一月廿四

2008-01-03 二00七年十一月廿五

2008-01-04 二00七年十一月廿六

2008-01-05 二00七年十一月廿七

2008-01-06 二00七年十一月廿八

2008-01-07 二00七年十一月廿九

2008-01-08 二00七年十二月初一

2008-01-09 二00七年十二月初二

2008-01-10 二00七年十二月初三

...............

2013-07-31 二0一三年六月廿四

2013-08-01 二0一三年六月廿五

2013-08-02 二0一三年六月廿六

2013-08-03 二0一三年六月廿七

2013-08-04 二0一三年六月廿八

2013-08-05 二0一三年六月廿九

2013-08-06 二0一三年六月三十

2013-08-07 二0一三年七月初一

2013-08-08 二0一三年七月初二

2013-08-09 二0一三年七月初三

本条技术文章来源于互联网，如果无意侵犯您的权益请点击此处反馈版权投诉

本文系统来源：php中文网