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

minfox126

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

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

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

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

守柔

原帖由 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

非常感谢版主。

apollokk

[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

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

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

hhhyf0928

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

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

oonly

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

还是这个算的是正确的