How to find Last business day for the given date
Posted on January 4, 2009
1 2 3 4 5 6 | 'Date & Time - How to find Last business day for the given date Private Function LastBuisnessDay(ByVal DT As Date) As Date Dim lDay As Long lDay = Weekday(DT, vbSunday) - 2 If lDay > 0 Then LastBuisnessDay = DT - 1 Else LastBuisnessDay = DT - (3 + lDay) End Function |