vb6 - 如何根据 vb6 中的周数获取开始日期？

Question

如何将周数转换为该周的开始日期？示例:第 41 周到 2016 年 10 月 9 日？日期还必须取决于年份。示例:对于 2017 年，第 41 周必须等于 10 月 8 日。

我已经搜索并找到了这个 ( How to get starting date in a Week based on week number using vb.net? ) 但它适用于 vb.net。我不确定这是否适用于 vb6。如果这在 vb6 中不起作用，我该怎么做？

谢谢:)

Answer 1

试试这个:

Private Sub Form_Load()

    Dim d As Date

    d = GetWeekStartDate(41, 2016)
    MsgBox d
    d = GetWeekStartDate(41, 2017)
    MsgBox d

End Sub

Private Function GetWeekStartDate(weekNumber As Integer, year As Integer) As Date

    Dim startDate As Date
    Dim day As Integer

    startDate = DateSerial(year, 1, 1)
    day = Weekday(startDate, vbSunday)
    startDate = DateAdd("d", DaysToAdd(day), startDate)

    GetWeekStartDate = DateAdd("ww", weekNumber - 1, startDate)

End Function

Private Function DaysToAdd(day As Integer) As Integer

    DaysToAdd = 0
    If day > 1 Then DaysToAdd = 7 - day + 1

End Function