Calculating Working Day vs Calendar Day

Here is something you can do. I did add in a Holiday Table as well, where you can add the holiday dates.

Call the function in the following way.

Dim holidayDT As DataTable
Using dbConn As DbConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)
Dim sql As New Text.StringBuilder
sql.AppendLine(“SELECT HOLIDAY_DT”)
sql.AppendLine(“FROM XFC_HOLIDAY”)
holidayDT = BRApi.Database.ExecuteSql(dbConn, sql.ToString, True)
End Using

BRApi.ErrorLog.LogMessage(si, Me.GetWorkingDay(si, Date.Now, holidayDT))

The function which gets the Working day.

Private Function GetWorkingDay(ByVal si As SessionInfo, ByVal currentDate As Date, ByVal holidayTable As DataTable) As Integer
Try
Dim workingDate As Date = currentDate ’ Create a new date since we are going to modify the start date
’ Get the first day of the start date
Dim firstDateOfMonth As Date = New DateTime(currentDate.Year, currentDate.Month, 1)
’ Get the current day
Dim currentDay As Integer = currentDate.Day
’ Get total days from first day to the current day
Dim totalDays As Integer = DateDiff(DateInterval.Day, firstDateOfMonth, workingDate) + 1

  Dim offDays As Integer = 0
  ' We are checking whether days from first day till current day is a holiday
  ' We are also checking whether it is a weekend
  For i As Integer = currentDay To 1 Step -1
  	If Not (workingDate.DayOfWeek < DayOfWeek.Saturday And workingDate.DayOfWeek > DayOfWeek.Sunday And holidayTable.Select("HOLIDAY_DT='" & workingDate.ToString("MM/dd/yyyy") & "'").Count = 0) Then
  		offDays += 1
  	End If
  	' set the date back as we are starting from current date
  	workingDate = workingDate.AddDays(-1)
  Next

  Return totalDays-offDays

Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function

I checked this for today, and I got the working day as the 13th (since the 6th was a holiday).