如何确定日历季度周期内的周数VB6

Question

在基于标准日期(即第1天= 2017-01-01)日历表中确定季度期间的周数时遇到一些问题。

我的表存储了以下信息：

季度数，开始日期，结束日期，天数；

例如，在历年的第一季度，第一周的结果是1周，第14周的结果是1周，每个季度的结果将持续到第四季度的最后一周。

有什么好主意吗？

Answer 1

我不认为这有一个内置的功能。如果我理解你的要求，这是一个琐碎的函数。你不包括任何代码，所以我只是给你一个最基本的例子。你想做点类似的事。

Public Function GetWeekInQuarter(ByVal WeekNumber As Integer) As Integer
    Const intWeeksInQuarter = 13
    Dim intResult As Integer

    intResult = WeekNumber Mod intWeeksInQuarter
    'if intResult <> intWeeksInQuarter = 0 then this is the 13th week
    GetWeekInQuarter = IIf(intResult <> intWeeksInQuarter, intResult, intWeeksInQuarter)

End Function