如何在 VBScript 中计算每月的最后一个工作日

本文介绍了如何在 VBScript 中计算每月的最后一个工作日的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

如何在 VBScript 中计算每月的最后一个工作日?它用于 Reporting Services 报告.

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

谢谢

推荐答案

怎么样:

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)