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

<script type="text/javascript">google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("<s"+"cript type='text/javascript' s"+"rc='http://pagead2.googlesyndication.com/pagead/show_ads"+"."+"js'></scr"+"ipt>");</script>

 

/**//*********************************************************
*作者:水若寒
*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