Ostatni biznesowy dzień miesiąca (funkcja)

Dziś krótka odpowiedź na pytanie- jak pobrać datę odpowiadającą ostatniemu dniu miesiąca z pominięciem weekendu? Jeżeli ostatni dzień miesiąca wypada w sobotę lub niedzielę naszym celem będzie otrzymanie daty odpowiadającej piątkowi poprzedzającemu ten weekend. Poniżej gotowe rozwiązanie w postaci funkcji UDF.

view sourceprint?

01	Public Function EndOfBusinessMonth(RefDate) As Date

02

03	Dim LastDay As Date

04

05	LastDay = DateSerial(Year(RefDate), Month(RefDate) + 1, 0)

06

07	Select Case Weekday(LastDay)

08	Case 1  'Niedziela

09	EndOfBusinessMonth = DateAdd("d", -2, LastDay)

10	Case 7  'Sobota

11	EndOfBusinessMonth = DateAdd("d", -1, LastDay)

12

Case Else

13	EndOfBusinessMonth = LastDay

14	End Select

15

16	End Function

Proszę też zwrócić uwagę na ten zapis:

view sourceprint?

1	LastDay = DateSerial(Year(RefDate), Month(RefDate) + 1, 0)

którego celem jest zwrócenie daty ostatniego dnia miesiąca (poprzedniego).
Warto przy okazji też podkreślić, że funkcja DateSerial() jest funkcją bardzo elastyczną, która umożliwia wprowadzenie ilości miesięcy spoza przedziału 1-12 co powoduje automatyczną konwersję na odpowiedni miesiąc dokonując przejścia przez kolejne lata (mniejsze od 0- lata wcześniejsze, większe od 12- lata późniejsze). Podobnie kwestia wygląda w zakresie dni, gdzie dopuszczalne są wartości spoza przedziału 1-31, a czego przykład widać w powyższej funkcji.