[求助]肚子饿了,玩不动了。寻大侠写个函数。 Post By:2013/11/28 15:48:00 [只看该作者]
function 获得工作日(开始日期,结束日期)
月份取系统时间当月。
开始日期值为空则判定1号开始
结束日期为空则判定月底结束
都为空则1号至月底
获得工作日为周六周日外的天数。。。。
参考代码
Dim Days As Integer = Date.DaysInMonth(2008,2) Dim Count As Integer Dim Val As Date For i As integer = 1 To Days Val = New date(2008,2,i) If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then Count = Count + 1 End If Next Output.Show("2008年2月的工作天数:" & Count)