将指定日期所在月份的所有日期按照周次输出
具体示例如下：
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
一沙一世界 一花一天堂 掌中握無……
网络编程技术、多媒体技术、PC应用技术
| 我爱研发网 | 中电华信 | 阿里西西 | JAVA爱好者 | 北京英才网 | 全球大学查询网 |
| 中国人的网站导航 | 中国电脑论坛 | 信息产业部 | 新浪科技 | 搜狐IT | 信息产业部电子教育与考试中心 |
| IT世界网 | 软件项目交易网 | 中国软件交易网 | 国信培训网 | 亚远景科技 | ....[更多] |
