カレンダー四半期内の週番号の決定方法VB6

Question

基準日（つまり、1日= 2017-01-01）のカレンダーテーブルで四半期の週番号を決定する機能を見つけるのに問題があります。

は私のテーブルは次の情報が保存されています：

四半期番号、開始日、終了日、日の数。一例として、

は、暦年の第1四半期の、週1の結果が1になり、14週が四半期4.

の最終週まで、各四半期を通じて任意のアイデアを行く、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