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

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

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

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

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

但我想为VBA/Excel创建一个等效的

如何做到这一点

---

提前感谢。

以日期为中心的自定义项示例：

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

---

您可以在VBA中编写用户定义函数（UDF）-对于有编程经验的人来说并不复杂，你似乎已经有了基本的结构。是的，我还没有成功地弄明白如何在VBA中编写它-即使只是一个基本的玩具示例，说明如何编写一个函数，读取一个日期并根据if-then条件返回一个不同的日期，也会非常有帮助。