- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]肚子饿了，玩不动了。寻大侠写个函数。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43031)
-- 发布时间：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)
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)
好饿~~
-- 发布时间：2013/11/28 15:49:00
--
一片空白
-- 发布时间：2013/11/28 15:58:00
--
内部函数：
Dim Days As Integer = Date.DaysInMonth(args(0),args(1))
Dim Count As Integer
Dim Val As Date
For i As integer = 1 To Days
Val = New date(args(0),args(1),i)
If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then
Count = Count + 1
End If
Next
return count
-- 发布时间：2013/11/28 16:15:00
--
老大是好银