reporting services - services - Cómo calcular el último día hábil del mes en VBScript

round reporting services

Question

¿Cómo calculo el último día hábil del mes en VBScript? Es para un informe de Reporting Services.

Gracias

Answer 1

Aquí hay un buen artículo de CodeProject: Trabajar con fechas comerciales (feriados / fines de semana de negocios, etc.) .

Este proyecto tiene como objetivo aliviar los problemas para determinar fechas de negocios válidas. Incluye algunas funciones que he creado para determinar si la fecha es festiva o de fin de semana, y también para recuperar el día hábil siguiente o el último. También hay una función para encontrar el último día de un mes determinado.

Function LastBusinessDay(sDate)

   Dim iDay, iDaysToAdd, iDate

   iDaysToAdd = 0
   iDate = sDate

   x = 1

   Do while iDaysToAdd >= 0

      If Weekday(iDate) = 1 or Weekday(iDate) = 7 or _
                isHoliday(iDate) <> 0 then
         iDay = Weekday(iDate)
         Select Case cint(iDay)
            Case 1  ''Sunday

               iDate = DateAdd("d", -1, iDate)

            Case 7  ''Saturday

               iDate = DateAdd("d", -1, iDate)

            Case else    ''this is a valid day

                if isHoliday(iDate) > 0 then
                    iDate = dateadd("d", -(isHoliday(iDate)), iDate)
                else
                    iDaysToAdd = iDaysToAdd - 1
                end if

         End Select
      end if
   Loop

   LastBusinessDay = iDate
End Function

PD: Encontrarás las funciones LastDayOfMonth y isHoliday en el artículo.

Answer 2

Qué tal si:

intMonth=11
''Use zero to return last day of previous month ''
LastDayOfMonth= dateserial(2008,intMonth+1,0)

''Saturday ''
If WeekDay(LastDayOfMonth,1)=7 Then LastDayOfMonth=LastDayOfMonth-1
''Sunday ''
If WeekDay(LastDayOfMonth,1)=1 Then LastDayOfMonth=LastDayOfMonth-2

Msgbox LastDayOfMonth & "  " & Weekdayname(Weekday(LastDayOfMonth,1),1)

Answer 3

Si se refiere al último día de la semana del mes (MF), intente:

Dim d

d = DateAdd("m", 1, Now)

d = Month(d) & "/1/" & Year(d)
d = DateAdd("d", -1, d)

If Weekday(d) = 7 Then
    d = DateAdd("d", -1, d)
ElseIf Weekday(d) = 1 Then
    d = DateAdd("d", -2, d)
End If

MsgBox d

Answer 4

Aquí hay una solución para cualquiera que esté buscando obtener el último día hábil del mes anterior.

Dim lastbusinessdayofprevmonth

Sub GetLastDay()

Dim curdate
curdate = Date()    

Dim firstdayofcurmonth 
firstdayofcurmonth = Month(curdate) & "/1/" & Year(curdate)

Dim lastdayofprevmonth
lastdayofprevmonth = DateAdd("d", -1, firstdayofcurmonth)

Dim day
day = weekday(lastdayofprevmonth)


if(day = 1) then
    lastbusinessdayofprevmonth = DateAdd("d", -2, lastdayofprevmonth)
elseif (day = 7) then
    lastbusinessdayofprevmonth = DateAdd("d", -1, lastdayofprevmonth)
else
    lastbusinessdayofprevmonth = lastdayofprevmonth
end if

end sub