正确计算今天是一年中的第几周

一指禅 · 发表于 2010-10-9 14:47

Function RZZ(y As Date)
RZZ = DateDiff("ww", Year(y) & "-1-1", y)
If RZZ = 0 Then
RZZ = Right(Year(y) - 1 & 53 + (Weekday(Year(y) & "-1-1", 2) > 5) * 1, 4)
Else
RZZ = Format(y, "yy") & Right(0 & RZZ, 2)
End If
End Function

[ 本帖最后由一指禅于 2010-10-9 15:02 编辑 ]

一指禅 · 发表于 2010-10-9 15:03

或

Function RZZ(y As Date)
ss = Year(y) & "-1-1"
RZZ = Format(ss, "ww")
If RZZ = 0 Then
RZZ = Right(Year(y) - 1 & 53 + (Weekday(Year(y) & "-1-1", 2) > 5) * 1, 4)
Else
RZZ = Format(y, "ww")
RZZ = Format(y, "yy") & Right(0 & RZZ, 2)
End If
End Function

复制代码

taibeisky · 发表于 2010-10-13 15:52

多谢高人指点~

zhuying0511 · 发表于 2010-11-22 19:24

啊？不是函数丫

simonzhan · 发表于 2011-4-11 15:23

个人认为还是NOKIA的算法更符合实际工作中使用。。。

一指禅 · 发表于 2011-4-11 21:36

这样
Function Wday(riqi As Date) As String
Wday = (Format(riqi, "y") - Weekday(riqi, 2) + 5) / 7
End Function

skyhaccp · 发表于 2011-4-25 11:48

那如何通过单元格得到第几周呢

cash1861 · 发表于 2011-10-31 15:18

weeknum 是对的

		自动登录	找回密码
密码			免费注册

[求助] 正确计算今天是一年中的第几周