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