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

google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("");




/**//*********************************************************


*作者:水若寒


*QQ:49940396


*Email:shuiruohanilove@sina.com


*日期:2007-4-29


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


**********************************************************/




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