Пользовательская функция группировки даты в 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