<p>How do I calculate the last business day of month in VBScript? It is for a Reporting Services report.</p>

<p>Thanks</p>

If you mean the last
week
day of the month (M-F), then try:
```
```
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
```
```