MsgBox(0,"返回指定日期的【年】与【周】",  _
        "2021,1,1 年: "&_week(2021,1,1)[0]&@TAB&"周: "&_week(2021,1,1)[1] &@CRLF _
        &"当前时间 年: "&_week()[0]&@TAB&"周: "&_week()[1])

Func _week($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY)   
    Local $week = _WeekNumberISO($iYear, $iMonth, $iDay) ;计算给定日期的周数.( 年度的第几周)
    If $iMonth = 1 And  $iDay < 7 And $week > 1 Then $iYear -=1   
    Local $arr[2]=[$iYear , $week]
    Return $arr
EndFunc   ;==>_week```
<br />

本文固定链接: http://www.jianyiit.com/post-335.html