算ISOWEEK的时候,通常是以(该日的所属周数+1 )- (该年的1-4所属周数),但也有特殊的情况,case1 :可能当年的一月1号到3号是属于前年的,case2 : 可能前年12月29到31号是属于下一年的.

SQL的算法

CREATE FUNCTION ISOweek (@DATE datetime)
RETURNS int
AS
BEGIN
DECLARE @ISOweek int
SET @ISOweek= DATEPART(wk,@DATE)+1
-DATEPART(wk,CAST(DATEPART(yy,@DATE) as CHAR(4))+'0104')
--Special cases: Jan 1-3 may belong to the previous year
IF (@ISOweek=0)
SET @ISOweek=dbo.ISOweek(CAST(DATEPART(yy,@DATE)-1
AS CHAR(4))+'12'+ CAST(24+DATEPART(DAY,@DATE) AS CHAR(2)))+1
--Special case: Dec 29-31 may belong to the next year
IF ((DATEPART(mm,@DATE)=12) AND
((DATEPART(dd,@DATE)-DATEPART(dw,@DATE))>= 28))
SET @ISOweek=1
RETURN(@ISOweek)
END

VB的算法

Public Function CaclISOWeek(ByVal dt As Date ) As Integer
Dim tmpdate As Date
Dim isowkid As Integer
isowkid = DatePart("ww",dt)+1-DatePart("ww",DateSerial(Year(dt),01,04))
If isowkid = 0 Then
tmpdate = DateSerial(Year(dt)-1,12,24+Day(dt))
isowkid = DatePart("ww",tmpdate)+1-DatePart("ww",DateSerial(Year(dt)-1,01,04))+1
End If
If ((DatePart("m",dt)=12) And ((DatePart("d",dt)- DatePart("w",dt))>= 28)) Then
isowkid = 1
End If
CaclISOWeek = isowkid
End Function

下面再讲一下ISOWEEK的年开始日

ISOweek 一年的开始日的算法应该是先确定当年的一月一号是否星期4或星期五,假如是星期4或星期5,那年的开始日应该是分别加4或加3,找到下个星期的星期一;假如是其他的星期天数,那就用[x-2](x为用weekday 函数算出的数字,假如星期天x为1,假如星期六为7)算出星期一的那天天数.