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

Question

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

我们使用了一个奇怪的“财政月”系统，它不遵守日历月，所以这个函数的目的是读取一个日期并返回相应的“财政月”。

最终，我希望实现一个 if-then 类型的函数，但用于将日期分组为奇怪定义的财务月份。

我已经在 R 中实现了这一点，如下所示：

但我想为 VBA/Excel 创建一个等价物。

如何实现？

提前致谢。

标签： rexcelvba

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