年的周数问题和一个星期认定问题，求解决方法??[已解决]

kk_lee69

_WeekNumberISO("2015","07","05") 这个显示27周

但是   SELECT datepart(week,'20150705')
SQL 认为是 28周

20150705 为星期日 理论上应该是一周的开始不是??

为何会是27周呢??

求解 如何修正跟SQL 一樣呢??

haijie1223

在帮助中有介绍，AU3中把周日算作一周的最后一天了。
成功: 返回一周中的星期几(范围1 到 7),1=Monday(星期一).

函数参考
--------------------------------------------------------------------------------
_DateToDayOfWeekISO
返回一个指定日期的国际标准(ISO)星期(n)数.
#Include <Date.au3>
_DateToDayOfWeekISO($iYear, $iMonth, $iDay)
参数
$iYear 一个有效的YYYY年格式 
$iMonth 一个有效的MM月格式 
$iDay 一个有效的DD日格式 
返回值
成功: 返回一周中的星期几(范围1 到 7),1=Monday(星期一). 
失败: 返回 0,并设置 @error 
@error: 0 - 无错误. 
 1 - 输入的日期无效 

如果想要把周日改成一周的第一天，需要手动把UDF改掉，把Date.au3中的两个函数改掉：
_DateToDayOfWeekISO
_WeekNumberISO

Func _DateToDayOfWeekISO($iYear, $iMonth, $iDay)
        Local $idow = _DateToDayOfWeek($iYear, $iMonth, $iDay)
        If @error Then
                Return SetError(1, 0, "")
        EndIf
        Return $idow
EndFunc   ;==>_DateToDayOfWeekISO

Func _WeekNumberISO($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY)
        ; Check for erroneous input in $Day, $Month & $Year
        If $iDay > 31 Or $iDay < 1 Then
                Return SetError(1, 0, -1)
        ElseIf $iMonth > 12 Or $iMonth < 1 Then
                Return SetError(1, 0, -1)
        ElseIf $iYear < 1 Or $iYear > 2999 Then
                Return SetError(1, 0, -1)
        EndIf

        Local $idow = _DateToDayOfWeekISO($iYear, $iMonth, $iDay) - 1;
        Local $iDow0101 = _DateToDayOfWeekISO($iYear, 1, 1) - 1;

        If ($iMonth = 1 And 4 < $iDow0101 And $iDow0101 < 7 - ($iDay - 1)) Then
                ;days before week 1 of the current year have the same week number as
                ;the last day of the last week of the previous year
                $idow = $iDow0101 - 1;
                $iDow0101 = _DateToDayOfWeekISO($iYear - 1, 1, 1) - 1;
                $iMonth = 12
                $iDay = 31
                $iYear = $iYear - 1
        ElseIf ($iMonth = 12 And 30 - ($iDay - 1) < _DateToDayOfWeekISO($iYear + 1, 1, 1) - 1 And _DateToDayOfWeekISO($iYear + 1, 1, 1) - 1 < 4) Then
                ; days after the last week of the current year have the same week number as
                ; the first day of the next year, (i.e. 1)
                Return 1;
        EndIf

        Return Int((_DateToDayOfWeekISO($iYear, 1, 1) - 1 < 5) + 4 * ($iMonth - 1) + (2 * ($iMonth - 1) + ($iDay - 1) + $iDow0101 - $idow + 6) * 36 / 256)

EndFunc   ;==>_WeekNumberISO

kk_lee69

回复 2# haijie1223

多謝提醒 倒是沒注意到那個說明
但是我覺得很怪的是 一個 UDF 幹麻前後 的邏輯不一樣
_DateDayOfWeek
天數. 取值範圍: 1 = 星期天(Sunday) 到 7 = 星期六(Saturday).

_DateToDayOfWeekISO
返回指定日期的周序數(範圍 1 到 7), 1 = 星期一(Monday).

用了_DateToDayOfWeekISO 在套入 _DateDayOfWeek
就會出現問題了

fcurrk

谢谢二楼版主的修改，的确是应该修改成这样子