Question

在基于标准日期（即第1天= 2017-01-01）的日历表中找到函数以确定四分之一周期的周数时遇到一些麻烦。

我的表格中存储了以下信息：

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

例如，在第一季度，第1周的结果为1，第14周为1，每季度到第4季度的最后一周。

任何想法请帮忙吗？

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

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

1 个答案: