VBA从一年中的第几周开始获取日期

Question

我想知道星期和星期几来检索一周中第一天的日期（一周从星期一开始）。 （一年中52周）

Dim nYear As Integer, _
    nWeek, As Integer
    startDate As Date

    nYear = 2018
    nWeek= 1


'startDate = ?

预期结果： 01/01/2018

有没有简单而动态的方式来做到这一点？

谢谢

Answer 1

Dim nTrimester As Integer, _
    nYear As Integer, _
    nWeek As Integer, _
    wd As Integer, _
    startDate As Date, _
    inputDate As Date

nYear = 2019
nWeek = 1    

inputDate = DateSerial(nYear, 1, 1)
inputDate = DateAdd("ww", nWeek - 1, inputDate)
wd = Weekday(inputDate, vbMonday)   

startDate = DateAdd("d", 1 - wd, inputDate)

Answer 2

我找到了解决方案：

startDate = DateAdd("ww", nWeek, DateSerial(Year(Date), 1, 1))

谢谢所有想要帮助的人！

如果您的产品具有相同或更好的效果，请随时添加

Answer 3

尝试此操作，您必须考虑一年中第一天的星期几。

    startDate = DateAdd("ww", IIF(WeekDay(DateSerial(Year(Date), 1, 1))>4, nWeek,nWeek-1), DateSerial(Year(Date), 1, 1))