在Excel VBA中查找该季度的周数

Question

我需要一个VBA函数，它会在给定日期的四分之一内返回周数。

例如， 1/1/2016的输入将返回1， 2016年1月4日将返回2， 2016年10月1日将返回1， 2016年10月7日将返回2， 2016年11月11日将返回7

我在Excel中有一个功能：

{{test-component bar=foo}}

但我正在努力将其移植到VBA。救命？谢谢！

Answer 1

您可以使用DatePart获取一年中的周数，然后每季度减去13周（也可以使用DatePart功能）：

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