按ISO标准返回周（weeknum）6种方法 2010年10月12日更新

YZC51

学习啦。谢谢老师！

每年周次
=WEEKNUM(A2-WEEKDAY(A2,2)+4,2)-1*(WEEKDAY(DATE(YEAR(A2-WEEKDAY(A2,2)+4),1,1),2)>4)

每月周次
=-INT(-(A2-WEEKDAY(A2,2)+4-DATE(YEAR(A2-WEEKDAY(A2,2)+4),MONTH(A2-WEEKDAY(A2,2)+4),1)+1)/7)

YZC51

请参考
Function ISOWEEKNUM(Optional dates = "", Optional ny = 0)
'说明
'返回给定日期在一年中的ISO 8601日历周的序号。
'ISO 8601 将日历周定义为七个日历日从星期一开始的时间间隔,
'并将第一年的第一个日历周定义为包含该年的第一个星期四的时间间隔。

'语法
'ISOWEEKNUM(Date)
'ISOWEEKNUM 函数语法具有下列参数?
'日期：非必需；空白时默认为当前日期。
'ny:为空白时默认为当前日期的 年周次；否则为月周次。
'是 Excel 用于日期和时间计算的日期-时间代码。
    If dates = "" Then dates = Date
    dates1 = dates - 2
    wd = dates1 / 7 - Int(dates1 / 7)
    dates = dates - wd * 7 + 3
    nf = Year(dates)
    yf = Month(dates)
    If ny Then
        dates = dates - DateSerial(nf, yf, 1) + 1
    Else
        dates = dates - DateSerial(nf, 1, 1) + 1
    End If
    ISOWEEKNUM = -Int(-dates / 7)
End Function

璟玊

感谢分享，非常好用