eleme 2025-05-04 GreaterThanXBusDays This custom function will return 1 if a date is greater than x business days from the end of the prior month else it will return 0. Parameters: Date field - Holds the date to be checked Days - Holds the number of business days from start of month - this will return 0 if over 20 days. Current_Month - Date that contains the year and month that will be tested against. The days will be ignored. Return: 1 if true and 0 if false Numeric VbScript DateTime Option Explicit Function GreaterThanXBusDays(DateField As Date, Days As Double, Current_Month As Date) As Double Dim iCurrentMonth As Integer Dim iCurrentYear As Integer Dim i As Integer Dim testDate As Date Dim iDateCount As Integer 'if the number of business days is larger than 20 than return 0 If days > 20 Then GreaterThanXBusDays = 0 Exit Function End If 'get the current month iCurrentMonth = Month(Current_Month) iCurrentYear = Year(Current_Month) 'if date is different year or month return 0 If iCurrentMonth = Month(DateField) and iCurrentYear = Year(DateField) Then 'calculate the last business date for the number of days (excludes Saturdasy and Sundays) For i = 1 To 31 testDate = DateSerial(iCurrentYear, iCurrentMonth, i) If Weekday(testDate) <> 1 And Weekday(testDate) <> 7 Then iDateCount = iDateCount + 1 If iDateCount = Days Then Exit For End If End If Next i Else GreaterThanXBusDays = 0 Exit Function End If If DateField <= testDate Then GreaterThanXBusDays = 1 Else GreaterThanXBusDays = 0 End If End Function Date DateField Date field that is being tested Numeric Days Number of business days from start of month Date Current_Month A date which will be used for the current month, the day will be ignored