以下是引用舜风在2008-12-30 17:33:00的发言:
问题二:有谁能提供计算两日期之间有多少工作日的代码(不包括节假日,而只去公休呢)
Dim StartTime As Date = #1/1/2009#
Dim EndTime As Date =#1/5/2009#
Dim n As Integer = (EndTime - StartTime).days + 1 '这里两个Date相减,得到的是TimeSpan类型.
Dim weeks As Integer = n\7 '包含多少个整周
For i As Integer = 0 To (n Mod 7) '判断,去掉整周后,剩余几天是星期几
Dim d As Date = EndTime.AddDays(-1*i)
If d.DayOfweek = DayOfWeek.Sunday OrElse _
d.DayOfweek = DayOfWeek.Saturday Then '如果是周末
n = n - 1
End If
Next
n = n - weeks * 2
Return n
[此贴子已经被作者于2008-12-31 11:30:19编辑过]