VBA / Excel中的自定义日期分组功能

Question

我正在尝试在Excel / VBA中创建一个函数，该函数将日期值作为输入并返回该日期所属的组。

我们使用了一个奇怪的“财务月”系统，该系统不遵循日历月，因此此功能的目的是读取日期并返回相应的“财务月”。

最终，我希望实现一种if-then类型的功能，但可以将日期分组到奇怪的财务月中。

我已经在R中实现了这一点，

但是我想为VBA / Excel创建一个等效项。

这怎么实现？

谢谢。

Answer 1

以日期为中心的UDF示例：

Function GetOtherDate(dt)
    Select Case Weekday(dt)
        Case 1: GetOtherDate = dt + 5
        Case 2: GetOtherDate = dt + 7
        Case 3: GetOtherDate = dt - 10
        Case 4: GetOtherDate = dt + 17
        Case Else: GetOtherDate = dt
    End Select
End Function