SQL日曆表數據的簡單生成

爲了公司考勤系統的需要

編寫的幾個簡單存儲過程(可以手動運行,也可以設置事務自動運行!感覺還行比較通用,寫出來共享下)

 

 

Calendar表結構很簡單,2個字段:

fdDate 日期
fdType 考勤類型(工作日N,週末W,節假日H[需要根據需要自己修改])

 

--判斷一段時間範圍內的工作日（N）和週末（W）

Create     PROCEDURE [dbo].[NewMonthWeekDay_Calendar]
@sdate smalldatetime,
@edate smalldatetime
AS
declare @fdDate smalldatetime
declare @WeekDay varchar(20)
declare cr0 cursor for
 select fdDate from calendar where fddate>=@sdate and fddate<=@edate
open cr0
fetch next from cr0 into @fdDate
 while @@fetch_status=0
 begin
  if (datename(weekday,@fdDate)='星期一')
   update calendar set fdType='N' where fdDate=@fdDate
  if (datename(weekday,@fdDate)='星期二')
   update calendar set fdType='N' where fdDate=@fdDate
  if (datename(weekday,@fdDate)='星期三')
   update calendar set fdType='N' where fdDate=@fdDate
  if (datename(weekday,@fdDate)='星期四')
   update calendar set fdType='N' where fdDate=@fdDate
  if (datename(weekday,@fdDate)='星期五')
   update calendar set fdType='N' where fdDate=@fdDate
  if (datename(weekday,@fdDate)='星期六')
   update calendar set fdType='W' where fdDate=@fdDate
  if (datename(weekday,@fdDate)='星期日')
   update calendar set fdType='W' where fdDate=@fdDate
  
  fetch next from cr0 into @fdDate

 end
close cr0
deallocate cr0 

 

--根據年和月自動插入Calendar表新日期數據

Create    PROCEDURE [dbo].[NewMonth_Calendar]
@Year int,
@Month int
AS

insert into cas..calendar(fdDate)
 Select Convert(Varchar(10), DateAdd(dd, ID, Cast(Rtrim(@Year) + '-' + Rtrim(@Month) + '-' + '01' As DateTime)), 120) as fdDate
 From (SELECT TOP 50 ID=number FROM  MASTER..SPT_VALUES WHERE TYPE='P' )T
 Where T.ID < DateDiff(dd, Cast(Rtrim(@Year) + '-' + Rtrim(@Month) + '-' + '01' As DateTime),
 DateAdd(mm, 1, Cast(Rtrim(@Year) + '-' + Rtrim(@Month) + '-' + '01' As DateTime)))

/*

--sql2000可以使用這個
 Select TOP 50 ID = Identity(Int, 0, 1) Into #T From SysColumns
 insert into cas..calendar(fdDate)
 Select Convert(Varchar(10), DateAdd(dd, ID, Cast(Rtrim(@Year) + '-' + Rtrim(@Month) + '-' + '01' As DateTime)), 120) From #T
 Where ID < DateDiff(dd, Cast(Rtrim(@Year) + '-' + Rtrim(@Month) + '-' + '01' As DateTime), DateAdd(mm, 1, Cast(Rtrim(@Year) + '-' + Rtrim(@Month) + '-' + '01' As DateTime)))
 Drop Table #T

*/

 

--插入日曆表全年的數據，並自動判斷工作日（N）週末（W）

Create   PROCEDURE [dbo].[NewYearInsrt]
@Year int
AS
if(@Year>2008)
begin
 exec NewMonth_Calendar @Year,1
 exec NewMonth_Calendar @Year,2
 exec NewMonth_Calendar @Year,3
 exec NewMonth_Calendar @Year,4
 exec NewMonth_Calendar @Year,5
 exec NewMonth_Calendar @Year,6
 exec NewMonth_Calendar @Year,7
 exec NewMonth_Calendar @Year,8
 exec NewMonth_Calendar @Year,9
 exec NewMonth_Calendar @Year,10
 exec NewMonth_Calendar @Year,11
 exec NewMonth_Calendar @Year,12
declare @sdate smalldatetime
declare @edate smalldatetime
set @sdate=cast(cast(@Year as varchar(4))+'-1-1' as smalldatetime)
set @edate=cast(cast(@Year as varchar(4))+'-12-31' as smalldatetime)
 exec NewMonthWeekDay_Calendar @sdate,@edate
end

--直接運行 EXEC [dbo].[NewYearInsrt] 2010 即可