set ANSI_NULLS ON

set QUOTED_IDENTIFIER ON

go

-- 日期检测函数，返回相关节假日

-- 0 非假日

-- 农历相关假日

-- 1 春节(正月初一 至 正月初七)

-- 2 端午节(五月五日)

-- 4 中秋节(八月十五)

--阳历相关节日

-- 8 元旦(1月1日)

-- 16 清明节(4月5日/闰年 4月6日)

-- 32 劳动节(5月1日)

-- 64 国庆节(10月1日)

--128 周末

ALTER  FUNCTION   [dbo].[fnCheckDate](@solarDay DATETIME)

RETURNS   bigint   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   @mLeapNum   int

DECLARE   @bLeap   smallint

DECLARE   @temp   int

DECLARE   @YEAR   INT

DECLARE   @MONTH   INT

DECLARE   @DAY   INT

DECLARE   @OUTPUTDATE   varchar(100)

DECLARE   @OUTPUTDATA   Bigint   --返回数值

SET @OUTPUTDATA = 0   --初始化为非假日

--保证传进来的日期是不带时间

SET   @solarDay= convert(datetime,@solarDay,23)

SET   @offset=CAST(@solarDay-'1900-01-30' AS INT)

print @solarDay

print @offset

return 0

--确定农历年开始

SET   @i=1900

WHILE   @i<2050   AND   @offset>0

BEGIN

SET   @yDays=348

SET   @mLeapNum=0

SELECT   @iLunar=dataInt   FROM   SolarData   WHERE   yearId=@i

--传回农历年的总天数

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   yearId=@YEAR

--判断那个月是润月

SET   @mLeap   =   @iLunar   &   15

SET   @bLeap   =   0

WHILE   @i    0

BEGIN

--判断润月

SET   @mDays=0

IF   (@mLeap   >   0   AND   @i   =   (@mLeap+1)   AND   @bLeap=0)

BEGIN--是润月

SET   @i=@i-1

SET   @bLeap=1

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

IF   @iLunar   &   65536   >   0

SET   @mDays   =   30

ELSE

SET   @mDays   =   29

END

ELSE

--不是润月

BEGIN

SET   @j=1

SET   @temp   =   65536

WHILE   @j<=@i

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=@offset

IF   @bLeap=1

SET   @OUTPUTDATE=(CAST(@YEAR   AS   VARCHAR(4))+'-润'+CAST(@MONTH   AS   VARCHAR(2))+'-'+CAST(@DAY   AS   VARCHAR(2)))

ELSE

SET   @OUTPUTDATE=(CAST(@YEAR   AS   VARCHAR(4))+CAST(@MONTH   AS   VARCHAR(2))+'-'+CAST(@DAY   AS   VARCHAR(2)))

DECLARE @tempStart NVARCHAR(20)

DECLARE @tempEnd   NVARCHAR(20)

IF charindex('-润',@OUTPUTDATE) =0  -- 农历假期判断

Begin

-- 春节判断

DECLARE @preYear int

SET @preYear= YEAR(@solarDay)-1

IF(@preYear%4=0 AND (@preYear%100<>0 or (@preYear%100=0 and @preYear%400=0)) )

set @tempStart= Cast(@preYear AS VARCHAR(4)) +'12'+'29'

Else

set @tempStart= Cast(@preYear AS VARCHAR(4)) +'12'+'30'

set @tempEnd =Cast(YEAR(@solarDay) AS VARCHAR(4)) +'01'+'06'

IF(Convert(datetime,CONVERT(varchar(100), @OUTPUTDATE, 23)) >= @tempStart AND Convert(datetime,CONVERT(varchar(100), @OUTPUTDATE, 23)) <= @tempEnd)

SET @OUTPUTDATA =@OUTPUTDATA | 1

--端午节判断

set @tempStart= Cast(@preYear AS VARCHAR(4)) +'05'+'05'

IF(Convert(datetime,CONVERT(varchar(100), @OUTPUTDATE, 23)) = Convert(datetime,@tempStart))

SET @OUTPUTDATA =@OUTPUTDATA | 2

--中秋节

set @tempStart= Cast(@preYear AS VARCHAR(4)) +'08'+'15'

IF(Convert(datetime,CONVERT(varchar(100), @OUTPUTDATE, 23)) = Convert(datetime,@tempStart))

SET @OUTPUTDATA =@OUTPUTDATA | 4

End

-- 阳历假期判断

--元旦

DECLARE @CurrentYear int

SET @CurrentYear = YEAR(@solarDay)

set @tempStart= Cast(@CurrentYear AS VARCHAR(4)) +'01'+'01'

IF(Convert(datetime,CONVERT(varchar(100), @solarDay, 23)) = Convert(datetime,@tempStart))

SET @OUTPUTDATA =@OUTPUTDATA | 8

--清明节

IF(@CurrentYear%4=0 AND (@CurrentYear%100<>0 or (@CurrentYear%100=0 and @CurrentYear%400=0)))

set @tempStart= Cast(@CurrentYear AS VARCHAR(4)) +'04'+'04'

ELSE

set @tempStart= Cast(@CurrentYear AS VARCHAR(4)) +'04'+'05'

IF(Convert(datetime,CONVERT(varchar(100), @solarDay, 23)) = Convert(datetime,@tempStart))

SET @OUTPUTDATA =@OUTPUTDATA | 16

--五一

set @tempStart= Cast(@CurrentYear AS VARCHAR(4)) +'05'+'01'

IF(Convert(datetime,CONVERT(varchar(100), @solarDay, 23)) = Convert(datetime,@tempStart))

SET @OUTPUTDATA =@OUTPUTDATA | 32

--十一

set @tempStart= Cast(@CurrentYear AS VARCHAR(4)) +'10'+'01'

set @tempEnd =Cast(@CurrentYear AS VARCHAR(4)) +'10'+'03'

IF(Convert(datetime,CONVERT(varchar(100), @solarDay, 23)) >= @tempStart AND Convert(datetime,CONVERT(varchar(100), @solarDay, 23)) <= @tempEnd)

SET @OUTPUTDATA =@OUTPUTDATA | 64

-- 周末判断

IF((DATEPART(Weekday,@solarDay)+@@DATEFIRST-1)%7 =0 OR (DATEPART(Weekday,@solarDay)+@@DATEFIRST-1)%7 =6)

SET @OUTPUTDATA =@OUTPUTDATA | 128

RETURN   @OUTPUTDATA

END