- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求当月工作日的天数代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=2857)
-- 发布时间：2009/5/20 14:36:00
-- [求助]求当月工作日的天数代码
[求助]求当月工作日的天数代码
-- 发布时间：2009/5/20 16:19:00
--
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)
最好自己做成一个自定义函数