一年中的第22周开始的日期是多少？

[宁城的雪]

一年中的第22周开始的日期是多少？也就是说知道这一年的周数，怎样得到这一周开始的日期。谢谢。

[ryuginka]

好象有个函数,我帮你查一下

[华芸智森]

Option Explicit

Private Sub Command1_Click()
Dim A As Long
Dim B As Date

A = Weekday(CDate("2004/1/1"))
'求2004年第22周的开始日期
B = DateAdd("D", 21 * 7 + (7 - A + 1), CDate("2004/1/1"))
Me.Caption = B
End Sub

[linton]

用MonthView控件可获得。

[northwolves]

DateSerial(2004, 1, 1 + 22 * 7 - Weekday(#1/7/2004#, vbSunday))