如何通过域代码或者VBA，判断当前日期是多少周？？？

minfox126 · 发表于 2010-4-24 13:56

感谢几位版主的资料，学会了样式使用，域的简单使用。

现在的问题是，大多文档是按年月日格式来标明日期的，但现在要求不仅要标明“年月日”，还要标注明是当前日期是一年中的的“第几周”（从1月到12月一年大约共53周）。

请问，如何通过域或者VBA实现自动判断当前日期是多少周？？？

[ 本帖最后由 minfox126 于 2010-4-24 14:09 编辑 ]

守柔 · 发表于 2010-4-24 14:25

原帖由 minfox126 于 2010-4-24 13:56 发表
感谢几位版主的资料，学会了样式使用，域的简单使用。

现在的问题是，大多文档是按年月日格式来标明日期的，但现在要求不仅要标明“年月日”，还要标注明是当前日期是一年中的的“第几周”（从1月到12月一年大约共 ...

Sub Example()
MsgBox GetCurWeekName
End Sub

Private Function GetCurWeekName() As Integer
GetCurWeekName = DatePart("ww", Now, vbMonday)
End Function

minfox126 · 发表于 2010-4-24 14:37

非常感谢版主。

apollokk · 发表于 2013-8-6 09:58

[code=vb]
'返回指定日期在本月是第几周
Function weekAtMonth(ByVal dt As Date)
Dim newDate As Date
newDate = CDate(Year(dt) & "-" & Month(dt) & "-1")
weekAtMonth = Int((Weekday(newDate) - 2 + Day(dt)) / 7) + 1
End Function
[/code]

hhhyf0928 · 发表于 2013-8-6 08:37

minfox126 发表于 2010-4-24 14:37
非常感谢版主。

我想请教一下：任意一个日期，如何判定它在当月的第几周？越简单越好！百度有但太复杂

hhhyf0928 · 发表于 2013-8-6 08:39

守柔发表于 2010-4-24 14:25
Sub Example()
MsgBox GetCurWeekName
End Sub

我想请教一下：任意一个日期，如何判定它在当月的第几周？越简单越好！百度有但太复杂

oonly · 发表于 2019-3-2 04:01

apollokk 发表于 2013-8-6 09:58

还是这个算的是正确的

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

[求助] 如何通过域代码或者VBA，判断当前日期是多少周？？？