利用sql server直接建立日曆

看到網上有高手直接用sql查詢建立日曆，也想本身動手實踐一遍。筆者這裏的實現和網上的都沒有什麼區別，思路也沒有什麼新意。以爲好玩，就把它記下來吧。 
1、準備知識
一、sql的with關鍵字
關於with和公用表表達式（CTE），能夠參考SQL Server 2005新特性之使用with關鍵字解決遞歸父子關係和
Sql Server2005 Transact-SQL 新兵器學習總結之-公用表表達式(CTE) 。
二、sql的pivot關鍵字
pivot很是強大，可是對於新手來講，可能連這個單詞都很生僻，使用也是舉步維艱。pivot的示例能夠參考這篇和這篇。
2、實現
一、實現思路：
使用遞歸with子句，返回當前月的每一天，而後使用case和max轉換爲周內日期。
二、輔助表T1

USE [TestDb]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[T1](
    [tid] [int] NOT NULL,
 CONSTRAINT [PK_T1] PRIMARY KEY CLUSTERED 
(
    [tid] ASC
)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY]

說明：T1表中有且只有一條記錄：insert into t1 values(1)
三、生成日曆的sql

with x(dy,dm,mth,dw,wk)
as(
select dy,day(dy) dm,datepart(m,dy) mth,datepart(dw,dy) dw,
case when datepart(dw,dy)=1
then datepart(ww,dy)-1
else datepart(ww,dy) end wk
from ( select dateadd(day,-day(getdate())+1,getdate()) dy from t1) x
union all select dateadd(d,1,dy),day(dateadd(d,1,dy)),mth,
datepart(dw,dateadd(d,1,dy)),
case when datepart(dw,dateadd(d,1,dy))=1
then datepart(wk,dateadd(d,1,dy))-1
else datepart(wk,dateadd(d,1,dy)) end
from x where datepart(m,dateadd(d,1,dy))=mth)
select max(case dw when 2 then dm end) as '星期一',
       max(case dw when 3 then dm end) as '星期二',
       max(case dw when 4 then dm end) as '星期三',
       max(case dw when 5 then dm end) as '星期四',
       max(case dw when 6 then dm end) as '星期五',
       max(case dw when 7 then dm end) as '星期六',
       max(case dw when 1 then dm end) as '星期日'
from x group by wk order by wk

圖片：
四、生成日曆sql語句說明
（1）首先，爲當前月的每一天返回一行信息。可使用sql server支持遞歸with的with子句來實現。返回的每一行包含的信息：月份日期（dm），星期幾（dw），當前月份（mth），iso周序號（wk）。
（2）在遞歸以前，遞歸視圖x產生的結果（union all的上半部分）以下所示：

select dy,day(dy) dm,datepart(m,dy) mth,datepart(dw,dy) dw,
case when datepart(dw,dy)=1
then datepart(ww,dy)-1
else datepart(ww,dy) end wk
from ( select dateadd(day,-day(getdate())+1,getdate()) dy from t1) x

（3）下一步重複遞增dm值（遞增次數就是月份對應天數），直到超出當前月爲止。在對當前月的每一天進行處理時，也會獲得天天對應星期幾以及當日的iso周序號。

with x(dy,dm,mth,dw,wk)
as(
select dy,day(dy) dm,datepart(m,dy) mth,datepart(dw,dy) dw,
case when datepart(dw,dy)=1
then datepart(ww,dy)-1
else datepart(ww,dy) end wk
from ( select dateadd(day,-day(getdate())+1,getdate()) dy from t1) x
union all select dateadd(d,1,dy),day(dateadd(d,1,dy)),mth,
datepart(dw,dateadd(d,1,dy)),
case when datepart(dw,dateadd(d,1,dy))=1
then datepart(wk,dateadd(d,1,dy))-1
else datepart(wk,dateadd(d,1,dy)) end
from x where datepart(m,dateadd(d,1,dy))=mth)
select *
from x 

此時，當前月的每一天包含的信息有：月份日期值，月份值，一位數字表示的星期幾（1-7分別對應星期日到星期六）以及iso周序號。
（4）使用一個case表達式肯定dm（當前月的每一天）中每一個值對應星期幾。

with x(dy,dm,mth,dw,wk)
as(
select dy,day(dy) dm,datepart(m,dy) mth,datepart(dw,dy) dw,
case when datepart(dw,dy)=1
then datepart(ww,dy)-1
else datepart(ww,dy) end wk
from ( select dateadd(day,-day(getdate())+1,getdate()) dy from t1) x
union all select dateadd(d,1,dy),day(dateadd(d,1,dy)),mth,
datepart(dw,dateadd(d,1,dy)),
case when datepart(dw,dateadd(d,1,dy))=1
then datepart(wk,dateadd(d,1,dy))-1
else datepart(wk,dateadd(d,1,dy)) end
from x where datepart(m,dateadd(d,1,dy))=mth)
select case dw when 2 then dm end as '星期一',
       case dw when 3 then dm end as '星期二',
       case dw when 4 then dm end as '星期三',
       case dw when 5 then dm end as '星期四',
       case dw when 6 then dm end as '星期五',
       case dw when 7 then dm end as '星期六',
       case dw when 1 then dm end as '星期日'
from x 

這裏每週的每一天都獨佔一行，在每行中，包含日期編號的列都與星期名相對應。
（5）最後把每週的全部日期放在一行中。
正如本文3中給出的最終sql語句同樣，對各列使用匯集函數max，而且按照周序號wk分組排序便可。 
ps：最終結果在sql server2005下測試經過，其餘版本未測試。 不過sql server 2005版本下利用dbms自帶的函數pivot能夠很輕鬆實現日曆的：

Use testdb
go

Declare 
    @Date datetime,
    @StartDate datetime,
    @EndDate datetime,
    @FirstIndex int

Set @Date =getdate() --輸入一個日期，便可算出當月的日曆 好比輸入20080808,這裏取當前日期

Select 
    @StartDate=Convert(char(6),@Date,112)+'01', 
    @EndDate=Dateadd(month,1,@StartDate)-1,
    @FirstIndex=Datediff(day,0,@StartDate)%7 ;
With t As
(
    Select Date=Convert(int,1),Row=(@FirstIndex)/7,Col=@FirstIndex
    Union All
    Select Date=Date+1,Row=(@FirstIndex+Date)/7,Col=(Date+@FirstIndex)%7
    From t
    Where Date<=Datediff(day,@StartDate,@EndDate)
)
Select 
    [星期一]=Isnull(Convert(char(2),[0]),''),
    [星期二]=Isnull(Convert(char(2),[1]),''),
    [星期三]=Isnull(Convert(char(2),[2]),''),
    [星期四]=Isnull(Convert(char(2),[3]),''),
    [星期五]=Isnull(Convert(char(2),[4]),''),
    [星期六]=Isnull(Convert(char(2),[5]),''),
    [星期日]=Isnull(Convert(char(2),[6]),'')
From t
Pivot (Max(Date) For col In([0],[1],[2],[3],[4],[5],[6])) b

pivot真是華麗的強大，強大的華麗啊。