将指定日期所在月份的所有日期按照周次输出

具体示例如下：

declare @i int-----------------------------计数器

declare @curWk int-------------------------指定日期在该年的周数

declare @fstWk int-------------------------每月一号在该年的周数

declare @fstDay nvarchar(10)---------------每月的第一天

declare @lstDay nvarchar(10)---------------每月的最后一天

declare @tmpDay smalldatetime--------------每周日的日期

declare @date smalldatetime----------------指定的日期

declare @tmpDay1 smalldatetime-------------每周六的日期

set @date = '2007-9-1'

select @fstDay=(cast(year(@date) as nvarchar(4))+'-'+ cast(month(@date) as nvarchar(2))+'-'+'1')

set @fstDay = Convert(nvarchar(10),cast(@fstDay as smalldatetime),120)

--print '本月第一天:'+@fstDay

set @fstWk = datepart(wk,@fstDay)

--print '本月第一周:'+str(@fstWk)

set @lstDay = Convert(nvarchar(10),dateadd(d,-1,dateadd(m,1,@fstDay)),120)

--print '本月最后一周:'+@lstDay

set @i=0

----找出跟上个月同一周的日期

while(@i<8)

begin

set @tmpDay = dateadd(dd,@i,@fstDay)

set @curWk = datepart(wk,@tmpDay)

if @curWk>@fstWk

begin

--print @tmpDay

break

end

set @i = @i+1

end

--print '本月第二周:'+convert(nvarchar(10),@tmpDay,120)

set @i=1

----找出这个月的日期

while(@i<7)

begin

if(@i=1)----------------如果是第一周，直接输出结果

begin

print('第'+str(@i)+'周:'+@fstDay+'--------'+convert(nvarchar(10),DateAdd(d,-1,@tmpDay),120))

set @i=@i+1

end

/**//*

*如果周日的日期还在该月内则继续下面的循环

**/

if(datediff(d,@tmpDay,@lstDay)>=0)

begin

set @tmpDay1 = DateAdd(d,6,@tmpDay)------周六的日期就是周日的日期加六就可以

/**//*

*如果周六的日期超过该月最后一天，则直接输出周日跟该月最后一天，否则输出周日跟周六

**/

if(DateDiff(d,@lstDay,@tmpDay1)>0)--超过该月最后一天，则直接输出周日跟该月最后一天

begin

print('第'+str(@i)+'周:'+Convert(nvarchar(10),@tmpDay,120)+'--------'+convert(nvarchar(10),@lstDay,120))

end

else--输出周日跟周六

print('第'+str(@i)+'周:'+Convert(nvarchar(10),@tmpDay,120)+'--------'+convert(nvarchar(10),@tmpDay1,120))

end

set @tmpDay=DateAdd(d,7,@tmpDay)----算出下周日的日期

if (datediff(d,@tmpDay,@lstDay)<0)--如果周日的日期超过该月的最后一天，则退出循环

break

set @i=@i+1

end