Excel VBAで四半期の週番号を調べる

Question

特定の日付から四半期の週番号を返すVBA関数が必要です。

例えば、2016年1月1日の 入力は2016年10月1日に1を返し、 2016年1月4日2が返され、1返され、 2016年10月7日に戻ります2、

=IF(O48="","",WEEKNUM(O48)-WEEKNUM(LOOKUP(O48,DATE(YEAR(O48),{1,4,7,10},1)))+1) 

しかし、私はそれVBAに移植する苦労しています：2016年11月11日には7

私はこれを行うExcelの機能を持って返します。助けて？ありがとう！

Answer 1

あなたは（DatePart機能付も可能）を各四半期の13週間を引く、年に週番号を取得するためにDatePartを使用することができます。

Public Function WeekOfQuarter(inValue As Date) 
    WeekOfQuarter = DatePart("ww", inValue) - ((DatePart("q", inValue) - 1) * 13) 
End Function